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SUMMARY 


This user’s manual contains a complete description of the computer programs devel- 
oped to calculate three-dimensional, compressible, laminar boundary-layers for perfect gas 
flow on general fuselage shapes. These programs include the 3-D boundary-layer pro- 
gram (3DBLC), the body-oriented coordinate program (BCC), and the streamline coor- 
dinate program (SCC). Program BCC reads the inviscid solution from the inviscid code 
and calculates the nonorthogonal body-oriented coordinates and the boundary-layer edge 
conditions for the boundary-layer grid. Program SCC reads the inviscid solution from 
the inviscid code and calculates the orthogonal streamline coordinates and the boundary- 
layer edge conditions on the streamline boundary-layer grid. Program 3DBLC utilizes the 
boundary- layer edge conditions obtained from the coordinate programs (BCC or SCC) for 
the calculation of 3-D boundary-layer. A schematic of the procedure is shown in Fig.l. 

Using these programs, the flow of both the subsonic and supersonic speed regimes over 
any fuselage shape(both the blunted nose and sharp nose fuselages) can be solved in both 
the body-oriented coordinate and the streamline coordinate systems. The current 3DBLC 
does not include interaction between the inviscid and viscous flow. 

The numerical method is described in volume I. In the present volume, the descriptions 
of these programs (3DBLC, BCC, and SCC) including subroutine description, input, out- 
put, and a sample case are presented. The complete FORTRAN listings of the computer 
programs are also included. 
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NOMENCLATURE 


A, B stagnation point velocity gradients 

a,b major and minor semiaxis length of the ellipsoid of revolution 

C Pn/ptH* 

C* B/A 

Cf z skin friction coefficient in the x-direction based on the edge condition, 

defined in Eqs.(l03a) or (104a) of Volume I 
C fv skin friction coefficient in the y-direction based on the edge condition, 

defined in Eqs.(l03b) or (104b) of Volume I 
Cp Pressure coefficient 

c p specific heat 

E H/H e , defined in Eq.(48) of Volume I 

F u/u e , defined in Eq.(48) of Volume I 

f { F, defined in Eq.(48) of Volume I 

G v /V re f or v y /V Te f, defined in Eqs.(48) or (56) of Volume I 

g ( G, defined in Eqs.(48) or (56) of Volume I 

H total enthalpy 

hi,h ,2 metric coefficients in the x and y coordinates, respectively. 

i,j,k numerical index for x, y , and z directions, respectively 

IMAX,JMAX, KM AX number of boundary-layer grid points in the 

x, y, and z directions, respectively 
M Mach number 

coefficients, defined in Eqs. (54) or (60) of Volume I 
p pressure 

Pr Prandtl number (0.72 ) 

r radius measured from X axes, Fig. 41 in Volume I. 

R,Q,(f> spherical polar coordinates, Fig.41 in Volume I. 
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q w heat transfer at the wall, defined in Eq.(108) of Volume I 

s arc length measured along y = const lines. 

T temperature 

u,v,w velocity components in the x,y, and z directions 

u Ri u 8i u 4> inviscid velocity components in the R,Q,<f> directions 
u x i,u v ',u z > inviscid velocity components in the x',y' and z' directions 
v y dv/dy 

v ye dv e /dy 

V total velocity, defined in Eq. (7) of Volume I 

x,y,z body-oriented coordinates (Fig. 1 in Volume I) or streamline coordinates 
(Fig. 2 in Volume I) 

x',i /,z' rectangular coordinates with the origin at the nose point (Fig.41 in Volume I) 

x*,y*,z* rectangular coordinates with the origin at the stagnation point, Fig. (37) 

or (38) in Volume I. 

X axial distance measured from the nose, see Fig.l in Volume I. 

a angle of attack 

7 ratio of specific heat 

Ax , Ay, grid spacing in the x, y, f directions, respectively. 

5 boundary-layer thickness; {z)v/v € = 0.995 

6* displacement thickness, defined in Eq.(107) of Volume I 

e small angle to locate the initial streamlines near the stagnation point, Fig. (41) 

in Volume I. 

f transformed normal coordinate, defined in Eq.(49) of Volume I 

0 angle between x and y coordinates 

9 r angle between two rectagular coordinates, (x^y^z 1 ) and (x*,y*,z*). Fig. (37) 

in Volume I. 

fi molecular viscosity 
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p/p 

p density 

<j> azimuthal angle, 0 and 7 r on the windward and leeward plane of symmetry, 

respectively, see Fig.l in Volume I. 

subscript 

e edge of the boundary-layer 

osp origin of spherical polar coordinates 

s stagnation point 

w wall 

y partial differentiation with respect to y 

f partial differentiation with respect to f 

oo undisturbed free stream 

ABBREVIATION 

3DBLC Three-Dimensional Boundary-Layer computer program 

BCC Body-oriented Coordinate computer program 

SCC Streamline Coordinate computer program 
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PART 1. 

THREE-DIMENSIONAL BOUNDARY-LAYER PROGRAM (3DBLC) 


1.1 Program Description 

Program 3DBLC utilizes the boundary-layer edge conditions obtained from the coor- 
dinate programs (BCC or SCO) for the calculation of 3-D boundary-layers on the general 
fuselage, as shown in Fig. 1. To obtain the 3-D boundary-layer solution on a general fuse- 
lage configuration, a geometry program which describes the fuselage shape and an inviscid 
code are required. A geometry program is needed by BCC or SCC, but not by 3DBLC. 
The schematic of the procedure shown in Fig. 1 is for the case when the numerical inviscid 
solution is used. However, this 3DBLC can also use the analytically generated boundary- 
layer edge conditions, without using the coordinate programs(BCC or SCC), when the 
analytic inviscid solution exists. The program is coded in the FORTRAN 77 computer 
language. 

The governing boundary-layer equations are in dimensional form; consequently, all 
inputs to 3DBLC must be consistently dimensional. Either English units (ft, lb, sec, °R ) 
or SI (MRS) units (m, kg, sec, °K) can be used. 

Program 3DBLC is primarily focused on fully three-dimensional, general fuselage type 
of configurations which have a symmetry plane. This code has been tested intensively for 
2-D flows; however, in order to reduce the length of the present user’s manual, instructions 
for calculating 2-D flows are not included. Axisymmetric flow can be solved as a 3-D flow 
without changing the present 3DBLC. 

Using 3DBLC, (1) the flows for both subsonic and supersonic speed can be solved; (2) 
the flow over both the sharp nose fuselage and blunted nose fuselage can be solved; and 
(3) the boundary-layer solutions can be obtained both in the body-oriented coordinate 
system(nonorthogonal) and in the streamline coordinate system. 
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The code block, COMBLCK, which lists the common blocks, is designed for flexibility 
in changing the dimensions in the spatial coordinates (x, y, and z) and to avoid listing the 
common blocks in each subroutine. This COMBLCK is included in the main program 
and all subroutines (except subroutine SY) by an ‘INCLUDE’ statement. The dimensions 
of the common blocks and the local dimensioned variables are controlled by changing the 
parameters IMAXF, JMAXF, and KMAXF in the COMBLCK. 
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1.2 Structure of Main Program 


Figure 2 shows the flow chart of the main program BLMAIN. The program first 
calls subroutine INPUT. The flow conditions are given in subroutine INPUT. Subrou- 
tine INPUT also reads in the boundary-layer edge conditions either from BCC or SCC. 
Wall boundary conditions are also specified in this subroutine. Then, the main program 
BLMAIN dimensionalizes the velocity components and calculates the temperature, pres- 
sure, density and viscosity at the edge of the boundary-layer. 

If the nose of the body is blunted, subroutine STAGPT is called to obtain the boundary- 
layer solution at the stagnation point. For the sharp nose body, subroutine COEFCON 
is called to calculate m x through m 13 of the boundary-layer equations on the cone, and 
subroutines CONON and CONOFF are called to obtain the boundary-layer solution based 
on the body-oriented coordinate system near the nose tip. Then, depending on the shape 
of the nose and the coordinate system chosen, the initial velocity profiles at i=l (near 
the stagnation point or near the nose tip) are calculated by calling subroutine INPOS (for 
sharp nose body, streamline coordinates), or INBUB (for blunted nose body, body-oriented 
coordinates), or INBUS (for blunted nose body, streamline coordinates). The notation of i 
and j on both the blunted and sharp nose fuselage can be found in Figure 3. No Subroutine 
is required to obtain the initial velocity profiles for the sharp nose body when using the 
body-oriented coordinate system. The initial profiles, F, G, and E are stored in H(l,J,K), 
H(2,J,K), and H(3,J,K), respectively. 

The boundary-layer calculation starts from i=2. The coefficients mi,m 2 ,..,mi 3 are 
calculated using subroutine COEFBODY when using the body-oriented coordinate system 
or COEFSTRM when using the streamline coordinate system. Subroutine PREDICT is 
called to solve the predictor momentum and energy equations. The solutions are stored 
in HB(1,J,K), HB(2,J,K), and HB(3,J,K). The corrector momentum equations are then 
solved by calling subroutine CORRECT. The solution of F and G are temporarily stored 
in HN(1,J,K) and HN(2,J,K), respectively. If {u/u e ) j=J MAX,k=KMAX-i is not greater than 
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UKMAXl, KMAX is increased (f e is increased accordingly) and returned back to the 
predictor step. 

Here, the check is also made whether the stepsize taken (Ax*) satisfies the zone of 
dependence principle. If the zone of dependence principle is not satisfied, subroutine 
OUTPUT is called to stop the calculations. If the stepsize satisfies this principle, the 
solutions of corrector momentum equations are stored in H(1,J,K) and H(2,J,K). Then the 
corrector energy equation is solved using subroutine CORRENG. The solution of corrector 
energy equation, the total enthalphy profile, is stored in H(3,J,K). 

The boundary-layer parameters are calculated at each step (each i) using subroutine 
BLPARA. Subroutine PROFILE is called to write the velocity and temperature profiles 
at the desired i-th and j-th step. If flow separation occurs at any j {{dujd^) w < 0), the 
boundary-layer calculation also terminates. If the stepsize satisfies the zone of dependence 
principle and separation does not occur, the boundary-layer calculations are continued 
to the next i-th step. If the boundary-layer calculation is finished or terminated for any 
reason, subroutine OUTPUT is called to write the input echo, the velocity and temperature 
profiles at the last i-th step and the boundary-layer parameters on the surface grid. 
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Fig. 2. Flow Chart of the Main Program BLMAIN 
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End 


Fig. 2. concluded. 
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(b) Sharp Nose Fuselage 


Fig. 3. Index notation; i, j 
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1.3 Subroutine Description 


Subroutine BLPARA 


• Called by the main program BLMAIN. 

• Calculates the boundary-layer parameters Cf x ,Cf y ,S,6*,q w , or T w in the physical 
quantities. 


Subroutine COEFBODY 


• Called by the main program BLMAIN. 

• Calculates the coefficients m 1 ,m 2 ,..,m 1 3 when using the boody-oriented coordinate 
system. 


Subroutine COEFCON 

• Called by the main program BLMAIN. 

• Called only for a sharp nosed body when i=l. 

• Calculates the coefficients mi,m 2 , ..,m 13 of the transformed equation for the cone. 

Subroutine COEFSTRM 

• Called by the main program BLMAIN. 
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Calculates the coefficients mi,m 2 ,..,mi 3 when using the streamline coordinate sys- 


tem. 


Subroutine CONOFF 

• Called by the main program BLMAIN. Calls subroutines NTRID and SY. 

• Called only for the sharp nose body when i=l and j=2,3,.., JMAX-1. 

• Obtains the boundary-layer solution off the line of symmetry near the sharp nose tip 
using the boundary-layer equations on the cone: 

1. Calculates the coefficients of 2x2 block tridiagonal momentum equations. 

2. Calls subroutine NTRID to solve this block tridiagonal matrix equations. 

3. Calculates the coefficients of tridiagonal energy equations. 

4. Calls subroutine SY to solve this tridiagonal equations. 

5. Repeats steps, 1 through 4, until the converged solution is obtained. 

6. Stores the converged solutions of F ( = u/u e ), f , G(= u/^oo)> 9> an( ^ -®( = H/ 

in HN(1,J,K), HSN(1,J,K), HN(2,J,K), HSN(2,J,K), and HN(3,J,K), respec- 
tively. 

Subroutine CONON 

• Called by the main program BLMAIN. Calls subroutines NTRID and SY. 

• Called only for the sharp nose body when i=l, j=l, or i=l, j=JMAX. 

• Obtains the boundary-layer solution on the line of symmetry near the sharp nose tip 
using the boundary-layer equations on the cone: 

1. Calculates the coefficients of 2x2 block tridiagonal momentum equations. 
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2. Calls subroutine NTRID to solve this block tridiagonal matrix equations. 

3. Calculates the coefficients of tridiagonal energy equations. 

4. Calls subroutine SY to solve this tridiagonal equations. 

5. Repeats steps, 1 through 4, until the converged solution is obtained. 

6. Stores the converged solutions of F(= u/u e ), f, G(= v v jV oo), g, and E(= 
H/H e ) in HN(1,J,K), HSN(l,J,K), HN(2,J,K), HSN(2,J,K), and HN(3,J,K), 
respectively. 

• The boundary-layer solution on the leeward line of symmetry may or may not exist. 

Subroutine CORRECT 

• Called by the main program BLMAIN. Calls subroutine NTRID. 

• Solves the corrector momentum equations: 

1. Calculates the coefficients of 2x2 block tridiagonal corrector momentum equa- 
tions. 

2. Calls subroutine NTRID to solve this block tridiagonal equations. 

3. Temporarily store the solutions F(= u/u e ), G(= v jV^ or =v v (V oa ) in HN(l,J,K), 
HN(2,J,K), respectively. 

Subroutine CORRENG 

• Called by the main program BLMAIN. Calls subroutine SY. 

• Solves the corrector energy equation: 

1. Calculates the coefficients of tridiagonal corrector energy equation. 
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2. solves tridiagonal equations by calling subroutine SY. 

3. Stores the solution E(= H/H e ) in H(3,J,K); stores C and p e jp in BC(J,K) and 
ROERO(J,K), respectively. 

Subroutine INBUB 


• Called by the main program BLMAIN. 

• Called only when using the body-oriented coordinate system for blunted nose body. 

• Obtains the initial velocity and total enthalpy profiles near the stagnation point(at 
* = 1 ) : 

1. Assumes the stagnation point solution has been obtained. 

2. Assumes the location of the stagnation point {x' 3 , z 3 ) t 6 r , the velocity gradients 
at the stagnation point (A, B, and C*), and the coordinates of the initial points 
near the stagnation point (x ( (l, J), t/fl,./), z'(l,J), J = 1,2, J MAX) are 
given. 

3. Calculates the initial profiles based on the body-oriented coordinate system 
using the equations presented in Appendix B.3 of Volume I. 

4. Stores these profiles, i.e., F{= uju t ), /, <-»(= u/Voo or v vlVoo), <7» E[= H/H e ), 
in H(1,J,K), HS(1,J,K), H(2,J,K), HS(2,J,K), and H(3,J,K), respectively. 

Subroutine INBUS 

• Called by the main program BLMAIN. 

• Called only when using the streamline coordinate system for blunted nose body. 

• Obtains the initial velocity and total enthalpy profiles based on the streamline coor- 
dinates near the stagnation point(at i = 1): 
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1. Assumes the stagnation point solution has been obtained. 

2. Assumes the location of the stagnation point {x' t , zj), 8 r , the velocity gradients 
at the stagnation point (A, B, and (7*), and the coordinates of the initial points 
near the stagnation point (x'(l, J), y'(l,J), z'(l, J), J = 1,2,.., JMAX) are 
given. 

3. Calculates the initial profiles using the method presented in Appendix B.2 of 
Volume I. 

4. Stores these profiles, i.e., F{= u/u e ), /, G(= v/V^ or Vy/V ^ ), g, E(= HjH e ), 
in H(1,J,K), HS(1,J,K), H(2,J,K), HS(2,J,K), and H(3,J,K), respectively. 

Subroutine INPOS 


Called by the main program BLMAIN. 

Called only when using the streamline coordinate system for sharp nose body. 

Obtains the initial velocity and total enthalpy profiles based on the streamline coor- 
dinates near the nose tip(at i = 1): 

1. Calculates the initial profiles using the equations presented in Appendix C of 
Volume I. 

2. Stores these profiles, i.e., F(= u/u e ), /, G(= v/V, M or Vy/V^), g, E(= H/H e ), 
in H(l,J,K), HS(l,J,K), H(2,J,K), HS(2,J,K), and H(3,J,K), respectively. 

Subroutine INPUT 

Called by the main program BLMAIN. 

Reads in inputs to 3DBLC: 


1. The flow conditions and other input quantities are given in the code. 



2. Reads in the boundary-layer edge conditions either from BCC or SCC when 
using the numerical inviscid solution. 

3. Calculates the ^-distribution. 

4. Wall temperature condition^) is specified for fixed wall temperature condi- 
tion. This is not necessary for adiabatic wall condition. 

5. Wall mass injection((pu;) w ) is specified for wall mass injection condition. If 
there is no mass injection, this is not necessary. 

Subroutine INSYM 

• Called by the main program BLMAIN. 

• Called only for blunted nose body and when KSYMSTG=1. 

• Obtains the initial velocity and total enthalpy profiles near the stagnation point(at 
» = !)■ 

1. Assumes the axisymmetric stagnation point solution (using C* = 1) has been 
obtained. 

i 

2. Does not require the location of the stagnation point (x^, z'), 0 r , and the velocity 
gradients at the stagnation point (A, B , and C*). 

3. Uses axisymmetric stagnation point profiles for the initial profiles. 

4. Stores these profiles, i.e., F(= u/« e ), /, G(= v/Voo or Vy/Voo), g, E(= H/H e ), 
in H(1,J,K), HS(1,J,K), H(2,J,K), HS(2,J,K), and H(3,J,K), respectively. 

Subroutine NTRID 

• Called by subroutines STAGPT, CONON, CONOFF, PREDICT and CORRECT. 
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• Solves 2x2 block tridiagonal matrix equations using Davis Modified Tridiagonal Al- 
gorithm (For algorithm, see Appendix A of Volume I). 

• Returns the solutions of F, f, G, and g in HN(1,J,K), HSN(1,J,K), HN(2,J,K), and 
HSN(2,J,K), respectively. 


Subroutine PREDICT 

• Called by the main program BLMAIN. Calls subroutines NTRID and SY. 

• Solves the predictor momentum and energy equations: 

1. Calculates the coefficients of 2x2 block tridiagonal predictor momentum equa- 
tions. 

2. Solve these block tridiagonal equations using subroutine NTRID. 

3. Calculates the coefficients of tridiagonal predictor energy equations. 

4. Solves these tridiagonal equations using subroutine SY. 

5. Stores the solutions F(= u/u„), G(= v/V , «> or = Vy/Voo), E(= H/H t ) in 
HB(l,J,K), HB(2,J,K), HB(3,J,K), respectively. 

Subroutine PROFILE 


• Called by the main program BLMAIN. 

• Writes the velocity and temperature profile at the desired i-th and j-th step on the 
file unit IW. The desired i-th and j-th step is determined by INI and JNI. 
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Subroutine STAGPT 


• Called by the main program BLMAIN. Calls subroutines NTRID and SY. 

• Called only for blunted nose body. 

• Obtains the boundary-layer solution at the stagnation point: 

1. Calculates the coefficients of 2x2 block tridiagonal momentum equations. 

2. Solves these block tridiagonal equations using subroutine NTRID. 

3. Calculates the coefficients of tridiagonal energy equations. 

4. Solves these tridiagonal equations using subroutine SY. 

5. Repeats steps, 1 through 4, above until the converged solution is obtained. 

6. Stores the converged solutions of F(= u/u,), /, G(= v/t>,), g, and E(= H/H ,) in 
HN(1,1,K), HSN(1,1,K), HN(2,1,K), HSN(2,1,K), and HN(3,1,K), respectively. 

• The key parameter for this solution is C*\ the axisymmetric stagnation point so- 
lution or 2-D stagnation point solution can be obtained by setting C*=l or C*= 0, 
respectively. 


Subroutine SY(IL, IU, B, D, A, C) 

• Called by subroutines STAGPT, CONON, CONOFF, PREDICT and CORRENG. 

• Does not include COMBLCK. 

• Solves the following tridiagonal system of equations using the Thomas algorithm. 

BkEk - 1 + DkEk + AkEk + x = Ck 

• The definitions of IL, IU are: 

IL: subscript k of the first equation in the system 
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IU: subscript k of the last equation in the system 


• Returns the solution vector for E k (K - IL,..,IU) to the calling program in the C 
array. 


Subroutine OUTPUT 

• Called by the main program BLMAIN. 

• Writes input echo, the velocity and temperature profiles at the last step, and the 
boundary-layer parameters on the surface grid. 
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1.4 Parameter and Variable Directory 


ASTAR 

BC(J,K) 

BCB(J,K) 

BLTH(I,J) 

BSTAR 

CAVD(I,J) 

CFX(I,J) 

CFY(I,J) 

COSTH(I,J) 

CP 

CPD(I,J) 

CSTAR 

DH2DS 

DK1DY 

DSPTH(I,J) 

DUEDSD(I,J) 

DUEDYD(I,J) 

DX 

DXH 

DY(J) 

DZETA(K) 

GAMMA 

H(1,J,K) 

H(2,J,K) 

H(3,J,K) 

HB(1,J,K) 


A, stagnation point velocity gradient in the x* direction 
0{= PV/PcHe) at ( Xi , y,) 

C(= pp/p e p e ) at the predictor step (x,+i/ 2 , Vj) 

6, boundary- layer thickness 

B, stagnation point velocity gradient in the y* direction 
V e , inviscid total velocity 

Of. 

C/y 

cos 6 

c p , specific heat 
Cp, pressure coefficient 
C-(= B/A) 
dhi/ds 

d{K\ cos 6)/dy 

6*, displacement thickness 

du e /ds 

du t jdy 

A Xi 

Axi/2 

Ay,- 

A<r* 

i 

u/u e at the point (x,-, y^) 
v/Voo at the point (x<, y ; ) 

H/H e at the point (x,-, y,) 

u/u c at the predictor step(x, +1 / 2 , y,) 
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HB(2,J,K) 

HB(3,J,K) 

HN(l,J,K) 

HN(2,J,K) 

HS(1,J,K) 

HS(2,J,K) 

HSB(1,J,K) 

HSB(2,J,K) 

HSP(1,J,K) 

Hl(I,J) 

H2(I,J) 

I 

IL 

IMAX 

IMAXF 

INC 

INI 

IW 

J 

JMAX 

JMAXF 


v/Voo at the predictor step(x, + i/ 2 , yy) 

H/H e at the predictor step(x, + i/ 2 , yy) 

the solution for u/u e from subroutine NTRID 

the solution for v/V or v jv t from subroutine NTRID 

/ at the point (x,-, yy) 

g at the point (x,-, yy) 

/ at the predictor step (x, + 1 / 2 , yy) 
g at the predictor step (x,- +1 / 2 , yy) 

/ at the previous step (x,-, yy) 
hi at the point (x,-, yy) 
hi at the point (x,-, yy) 

index for the boundary-layer grid in the x direction 

i-th step where the boundary-layer calculation stops (not necessarily the 
same as IMAX) 

actual number of grid points in the x-direction (IMAX<IMAXF) 
maximum possible number of grid points in the x-direction, given 
in COMBLCK 

=0 when the energy equation is to be solved (for compressible flow) 

=1 when the energy equation is not to be solved (for incompressible flow) 
number of intervals of i-th steps where the velocity and temperature 
profiles axe written on file unit IW 

unit for writing the velocity and temperature profiles using subroutine 
PROFILE 

index for the boundary-layer grid in the y direction 
actual number of grid points in the y-direction (JMAX<JMAXF) 
maximum possible number of grid points in the y-direction, given 
in COMBLCK 
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JMAXl 


J-th station to where the boundary-layer solution exists (JMAX1<JMAX) 
JNI number of intervals of j-th steps where the velocity and temperature 

profiles are written on file unit IW 
K index for the boundary-layer grid in the f direction 

KAW =0 when the wall temperature is given as a boundary condition 

= 1 for adiabatic wall condition 

KBODY =1 when using the body-oriented coordinate system 

=0 when using the streamline coordinate system 
KCPGIVN =0 when pressure coefficients at the edge of the boundary-layer are not 
given as input 

=1 when pressure coefficients at the edge of the boundary-layer are given 
as input 

KMAX actual number of grid in the ^-direction (may be changed as i increases) 

(KMAX<KMAXF) 

KMAXF maximum possible number of grid in the 2 -direction, given in COMBLCK 

KPOINT =1 when the shape of nose is sharp 

=0 when the shape of nose is blunted 
KROW =1 when wall mass injection exists 

=0 when there is no wall mass injection 
KSYMSTG =1 to obtain the stagnation point solution using C* = 1 
=0 to obtain the stagnation point solution using given C* 

MKS =0 when using the English units (ft, lb, sec, °R ) 

=1 when using SI(MKS) units (m, kg, sec, °K) 

Ml(J),..,Ml3(J) mi, 

PE(I,J) p, pressure 

PI 7T 
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PINF 

PR 

RMINF 

RMYUED(I,J) 

RMYUEH(J) 

RNUINF 

ROED(I,J) 

ROEH(J) 

ROERO(J,K) 

ROEROB(J,K) 

ROINF 

ROWW(I,J) 

RR 

ss 

S1(I,J) 

S1H(I,J) 

TB(J,K) 

TD(J,K) 

TE(I,J) 

THETAR 

THMOM(I,J) 

TINF 

TWALL(I,J) 

UE(I,J) 

UKMAXl 

VE(I,J) 


Poo , free stream pressure 
Pr , Prandtl Number 
Moo 
Me 

(RMYUED(I,J)+RMYUED(I+l,J))/2 

^oo 

Pt 

(ROED(I,J)+ROED(I+l,J))/2 

Pt/p 

p t j p at the predictor step (xj +1 / 2 , t/y) 

Poo 

(pw)w 

gas constant 
speed of sound 
s 

(Sl(I,J)+Sl(I+l,J))/2 

temperature inside the boundary-layer at the predictor step(x; + i/ 2 , yy) 
temperature inside the boundary-layer at 
boundary-layer edge temperature 
Or 

momentum thickness, defined as / 0 °° 1 — yi)d- z 

Too 

T w 

u e 

KMAX and £ {=$(KMAX)) are to be increased going downstream 
so that {u/u e ) k=KM AX- 1 is greater than this value, typically 0.9995 
v e 
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VINF 


VMAX(I,J) maximum crosswise velocity based on the streamline coordinate system 
XD(I) x 

XKI(I,J) cross-flow Reynolds number, defined as 

XPD(I,J) x' 

XPS Xg, x' of the stagnation point 

XSTAR x* 

YD(J) y 

YPD(I,J) y' 

YSTAR y* 

ZACT(J,K) ^ 

ZETA(K) c 

ZETAE Ce,=ZETA(KMAX) 

ZPD(I,J) z' 

ZPS 2', 2' of the stagnation point 
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1.5 Input 


All the inputs to 3DBLC are specified or read through subroutine INPUT. The proce- 
dure is as follows: 

(l) The flow conditions and other input parameters are specified in this subroutine. 


MRS 

INC 


KPOINT 

KBODY 

KCPGIVN 

KMAX 

RAW 

RROW 

RSYMSTG 


=1 when using the SI (MRS) Units (m,kg,sec,° K) 

=0 when using the English Units (ft, lb, sec, 0 R) 

= 1 when the energy equation need not be solved (This can be used 
when the incompressible boundary-layer solution is sought. In this 
case, the density variation across the boundary-layer is neglected, 
i.e., TjT e — 1 and p e /p = 1) 

=0 when the energy equation also need to be solved 

=1 when the shape of nose is sharp 

=0 when the shape of nose is blunted 

=1 when using the body-oriented coordinate system 

—0 when using the streamline coordinate system 

=1 when the pressure coefficients (Cp) on the BL grid are given 

=0 when the pressure coefficients (Cp) on the BL grid are not given 

number of grid in the normal direction at i=l ( Note that is 

defined as f (KMAX), where the £ distribution will be given in step (5)) 

=1 when adiabatic wall condition is used (T w is not needed) 

=0 when the wall temperature is given as a boundary condition 
(T v must be specified as a function of x and y) 

=1 when wall mass injection exists ((pw) w must be specified) 

=0 when there is no wall mass injection ((ptw) w is not needed) 

=1 when the stagnation point solution and the initial velocity profiles are 
obtained using C* = 1 (In this case, x\ , z' t , 0 r , A, B, and C* are 
not required even though the nose is blunted.) 
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=0 when the stagnation point solution is obtained using given C* 

(In this case, x' ( , z' t , 0 r , A, B , and C* must be given) 

IW unit for writing the velocity and temperature profiles using subroutine 

PROFILE 

INI number of intervals of i-th steps where the velocity and temperature 

profiles are to be written on file unit IW 

JNI number of intervals of j-th steps where the velocity and temperature 

profiles are to be written on file unit IW 
GAMMA( 7 ) =1.4 for air 

RR(Gas constant )=287 m 2 /sec 2o K (if MKS=1) 

=1716 ft 2 /sec 2o R (if MKS=0) 

PR(Pr) =0.72 for air 

RMINF(Moo) 

PINF(Poo) in N/m 2 (if MKS=l) 

in lb/ ft 2 (if MKS=0) 

TINF(roo) in °K (if MKS=1) 

in °R if (MKS=0) 

UKMAXl KMAX is to be increased in 3DBLC so that [u/u^kmax - i is 

greater than this value, typically 0.9995 

(2) Then, this subroutine reads in the output (boundary-layer edge conditions) either from 
BCC or SCC when using the numerical inviscid solution. The boundary-layer edge condi- 
tions include: 

x'„ e rt A, B, c* 

(These quantities are required only for the blunted nose body and can be obtained only 
from SCC. Therefore, if one wants to obtain the solution using the body-oriented coordi- 
nates, one should obtain these quantities using SCC first. However, these quantities are 
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not required if we set KSYMSTG=1 even though the nose is blunted. For the sharp nose 
body, these quantities are not needed.) 
x(i) for i=l,2,..,IMAX 
y(j) for j=l,2,..,JMAX 

x', y 1 , z\ Ug/Voo, v e /Voo, s , hi, h 2 , cos 6, Cp for i=l,2,..,IMAX, j=l,2,..,JMAX 
The pressure coefficient Cp is not necessary for subsonic, shock-free flow because the 
pressure on the body surface can be calculated from the isentropic relationship with the 
freestream using the inviscid velocity on the body surface. For the supersonic flow, Cp is 
necessary because the isentropic relationship with undisturbed free stream no longer holds. 
When using the streamline coordinate system, v e and cos 6 are zero throughout the flow 
field and hi is not necessary because hi is defined as Yoo/tt* in the boundary-layer code. 
It is to be noted that the velocity components(u ( /V 00 , v e /Voo) based on the body-oriented 
coordinate system are required for i=l when using the streamline coordinates on the sharp 
nose body, and these are obtained from SCC. 

(3) The transformed normal coordinate(f) distribution for k=l,2,..,KMAXF and Af(k) 
for k=l,2..,KMAXF-l are either specified or calculated. 

(4) Then, T w is specified in °K (if MKS=1) or in °R (if MKS=0) for the given wall tem- 
perature condition(KAW=0). For adiabatic wall condition(KAW=l), T w is not needed. 

(5) The value of (pw) w is given for the wall mass injection or suction condition(KROW=l). 
The value of (pw) w is positive for injection and negative for the suction. The value must 
be in N sec/m s when using SI unit(MKS=l) or in Ibsec/ft 3 when using the English 
units(MKS=0). When there is no mass injection or suction(KROW=0), this input is 
not needed. 
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1.6 Output 


The output from 3DBLC is given through subroutine OUTPUT. 

(1) The flow condition and other input parameters are echoed: 

MKS 

INC 

KPOINT 

KBODY 

KCPGIVN 

KMAX (This value may be different from KMAX which was given as a input.) 

KAW 

KROW 

KSYMSTG 

IW 

INI 

JNI 

GAMMAfr) 

RR(Gas constant) 

PR(Pr) 

RMINF(Afoo) 

P INF (Poo) 

TINF (Too) 

UKMAX1 

The calculated free-stream conditions, CP[c p , specific heat), ROINF(poo), RMYUINF 
(/ioo), RNUINF(i/oo)) SS(speed of sound), VINF(V r 00 ) are also printed. IL(the last i-th 
step) and JMAXl(the last j-th step where the boundary-layer solution exists) are printed. 

(2) The velocity and temperature profiles at the last i-th step (i=IL) are printed: 
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£, F, G, T/T,(= Pe/p) for k=l,2,..,KMAX, j=l,2,..,JMAXl 
(3) The boundary-layer parameters are printed: 

s', y', z\ Cj x , Cf v , 6 , 6*, momentum thickness, ^(if KAW=0) or T«,(if KAW=1) 
for i=l,2,..,IL, i=l,2,..,JMAXl 

The units for 6, 6*, and momentum thickness are m (if MKS=1) or ft (if MKS=0). 
The unit for q w is ^ (if MKS=l) or (if MKS=0). 

The unit for T w is °K (if MKS=l) or °R (if MKS=0). 
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1.7 Sample Case 


For a sample case, the compressible flow (Mo, =0.3) over a general aviation fuselage at 
an angle of attack 3 degrees was calculated in the body-oriented coordinate system. The 
inviscid solution was first obtained using the Hess code [1]. Then, the boundary-layer edge 
conditions were obtained from BCC(Part 2). The value of KSYMSTG was set equal to 1 
not to necessiate the quantities for the stagnation point, i.e., x? t , $ r , A, B, C*. 

The flow conditions are: 

Moo = 0.3 
Poo = 101324 N/m 2 
^ = 288 °K 
a = 3° 

T w = T aw 

(pw) w = 0 

To reduce the output data, an IMAX=20 by JMAX=31 boundary-layer grid, which was 
generated by BCC, was used. For the sample case input, subroutine INPUT is presented. 
The boundary-layer edge conditions on the body-oriented boundary-layer grid obtained 
from BCC are also used as an input. The outputs generated by subroutine OUTPUT are 
presented as a sample case output. 
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1.7.1 Sample Case Input 


c ####################################################################### 
subroutine input 

include 'comblck' 

mks=l 

inc=0 

kpoint=0 

kbody=l 

kcpgivn=l 

kmax=l 6 

kaw=l 

krow=0 

ksymstg=l 

iw=80 

ini=50 

jni=l 

gamma =1 . 4 

if (mks . eq . 0 ) rr=17 1 6 . 
if {mks .eq. 1) rr=287 . 

pr=0 . 72 

rminf =0 . 3 

pinf =1 0 132 4 

t inf =2 8 8 . 

ukmaxl=0 .9995 

c read the boundary-layer edge conditions from either BCC or SCC 

if (kbody . eq. 1 ) then 

if (kpoint . eq. 1 . or . ksymstg . eq. 1 ) go to 33 
rewind 25 

read (25, 1112) xps, zps, the tar, astar,bstar,cstar 
33 rewind 22 

read (22, 4 63 ) imax, jmax 
read(22,461) (xd (i) , i=l, imax) 
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read (22 , 461) (yd ( j ) , j=l, jmax) 
do 60 i=l,imax 
do 60 j^l,jmax 

read (22, 4 62) it r, itr,xpd(i, j) , ypd(i, j) , zpd(i, j) , si (i, j) , ue (i, j) 
&, ve (i, j) ,hl (i, j) f h2 (i, j) , costh<i, j) ,cpd(i, j) 

60 continue 

461 format (5 (lx, el3 . 6) ) 

462 format (2i4, 5 ( lx, e!3 . 6) /8x, 5 (lx, el3 . 6) ) 

463 format (2110) 

go to 1115 
endif 

if (kbody .eq. 0) then 
rewind 25 

read (25, 1112) xps, zps, theta r, astar,bstar, cstar 

read (25, 463) imax, jmax 

read (25, 461) (xd (i) , i-1 , imax) 

read { 25 , 461) (yd ( j ) , j=l, jmax) 

do 160 i=l,imax 

do 160 j=l,jmax 

read (25, 464) itr, itr, xpd(i, j) , ypd(i, j) , zpd(i, j ) , si (i, j ) , ue (i, j ) 
&, ve (i, j) ,h2 (i, j) , cpd(i, j) 

160 continue 

4 64 format (2i4, 4 (lx,el4 . 7 ) /8x, 4 ( lx, el4 . 7) ) 

1112 f ormat ( 6el3 . 6 ) 
endif 

1115 continue 

c zeta distribution is specified 

dzetas=0 . 2 
zeta ( 1 ) =0 . 
dzeta (1) =dzetas 
do 25 k=2,kmaxf 
dzeta (k) =dzetas 

c dzeta (k) -dzeta ( k-1 )* 1 . 05 

zeta (k ) =zeta (k-1 ) +dzeta ( k) 

25 continue 

c wall condition is given if necessary 

if (krow.eq. 0 .and. kaw.eq. 1) return 
if (krow . eq . 0 ) go to 270 
do 176 i=l,imax 
do 176 j=l,jmax 
roww (i, j ) =0 . 001 
176 continue 

270 if (kaw.eq. 1) return 
do 276 i=l,imax 
do 276 j=l,jmax 
twall (i, j ) =309 . 7 
276 continue 

return 

end 


30 


1.7.2 Sample Case Output 


********** input echo ********************** 


mks= 1 

inc= 0 


kpoint= 

kbody= 

kcpgivn= 

kmax— 

kaw= 


0 

1 

1 

20 

1 


krow= 

0 

ksymstg 

= 

iw= 

80 

ini= 

50 

jni= 

1 

gamma= 

1.400000 

rr= 287.0000 

pr= 0 . 

7200000 

rminf = 

0.3000000 

pinf= 

101324.0 

t inf= 

288.0000 

ukmaxl= 

0 . 9995000 
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********** other free-stream conditions ********** 


cp= 1004.500 
roinf= 1.225852 
rmyuinf= 1.797080E-05 
rnuinf= 1.465984E-05 
ss= 340.1741 
vinf= 102.0522 


il= 20 

jmaxl= 31 

the flow is not separated yet 


******* velocity profiles ********** 


= 

20 

j= 1 (xp= 

0.0390 

k 

zeta 

u/ue vy/vinf 

t /te 

1 

0.00 

0.00000 0.000E+00 

1.0071 

3 

0.40 

0 .35040-0 .745E-01 

1.0064 

5 

0.80 

0 . 61861-0 . 117E+00 

1.0047 

7 

1.20 

0. 80305-0. 136E+00 

1.0030 

9 

1.60 

0 . 91278-0 .141E+00 

1.0016 

11 

2.00 

0 . 96760-0 .141E+00 

1.0008 

13 

2.40 

0. 99010-0. 139E+00 

1.0003 

15 

2.80 

0. 99756-0. 138E+00 

1.0001 

17 

3.20 

0. 99953-0. 138E+00 

1 . 0000 

19 

3.60 

0. 99995-0. 137E+00 

1.0000 


yp= 0.0000 zp= -0.0743 ) 


k 

zeta 

u/ue vy/vinf 

t /te 

2 

0.20 

0. 18516-0. 416E-01 

1.0069 

4 

0.60 

0. 49505-0. 995E-01 

1.0056 

6 

1.00 

0. 72104-0. 129E+00 

1.0039 

8 

1.40 

0 .86620-0 . 140E+00 

1.0023 

10 

1.80 

0. 94560-0. 141E+00 

1.0011 

12 

2.20 

0. 98163-0. 140E+00 

1.0005 

14 

2.60 

0. 99495-0. 139E+00 

1.0002 

16 

3.00 

0. 99890-0. 138E+00 

1.0001 

18 

3.40 

0. 99982-0. 138E+00 

1.0000 

20 

3.80 

1.00000-0. 137E+00 

1.0000 
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i= 20 j= 2 (xp= 0.0390 yp= 0.0078 zp= -0.0741 ) 

k zeta u/ue v/vinf t/te k zeta u/ue v/vinf t/te 

1 0.00 0.00000 0.000E+00 1.0071 2 0.20 0 . 18559-0 . 433E-02 1.0069 

3 0.40 0 . 35118-0 . 776E-02 1.0063 4 0.60 0 . 49609-0 . 104E-01 1.0056 

5 0.80 0 . 61981-0 . 122E-01 1.0047 6 1.00 0 . 72228-0 . 134E-01 1.0038 

7 1.20 0. 80423-0. 142E-01 1.0030 8 1.40 0 . 86725-0 . 145E-01 1.0022 

9 1.60 0 . 91365-0 . 147E-01 1.0016 10 1.80 0 . 94626-0 . 147E-01 1.0011 

11 2.00 0 . 96808-0 . 146E-01 1.0007 12 2.20 0 . 98195-0 . 146E-01 1.0005 

13 2.40 0 . 99031-0 . 145E-01 1.0003 14 2.60 0 . 99507-0 . 145E-01 1.0002 

15 2.80 0 . 99763-0 . 144E-01 1.0001 16 3.00 0 . 99893-0 . 144E-01 1.0001 

17 3.20 0 . 99955-0 . 144E-01 1.0000 18 3.40 0 . 99983-0 . 144E-01 1.0000 

19 3.60 0 . 99995-0 . 144E-01 1.0000 20 3.80 1 . 00000-0 . 143E-01 1.0000 


i= 20 j= 3 (xp= 0.0390 yp= 0.0156 zp= -0.0732 ) 

k zeta u/ue v/vinf t/te k zeta u/ue v/vinf t/te 

1 0.00 0.00000 0 . 000E+00 1.0070 2 0.20 0 . 18636-0 . 854E-02 1.0068 

3 0.40 0 . 35257-0 . 153E-01 1.0063 4 0.60 0 . 49794-0 . 203E-0 1 1.0055 

5 0.80 0 . 62191-0 .238E-01 1.0047 6 1.00 0 . 72445-0 . 2 62E-0 1 1.0038 

7 1.20 0 . 80631-0 .276E-01 1.0030 8 1.40 0 . 86909-0 . 283E-01 1.0022 

9 1.60 0 . 91517-0 .286E-01 1.0016 10 1.80 0 . 94745-0 .286E-01 1.0011 

11 2.00 0 . 96895-0 .286E-01 1.0007 12 2.20 0 . 98254-0 .284E-01 1.0005 

13 2.40 0 . 99068-0 .283E-01 1.0003 14 2.60 0 . 99529-0 . 283E-01 1.0002 

15 2.80 0 . 99776-0 .282E-01 1.0001 16 3.00 0 . 99900-0 . 282E-01 1.0000 

17 3.20 0 . 99958-0 .281E-01 1.0000 18 3.40 0 . 99984-0 .281E-01 1.0000 

19 3.60 0 . 99995-0 .281E-01 1.0000 20 3.80 1 . 00000-0 . 280E-0 1 1.0000 


i= 20 j= 4 (xp= 0.0390 yp= 0.0233 zp= -0.0717 ) 

k zeta u/ue v/vinf t/te k zeta u/ue v/vinf t/te 

1 0.00 0.00000 0 . 000E+00 1.0070 2 0.20 0 . 18737-0 . 125E-01 1.0067 

3 0.40 0 . 35442-0 . 223E-01 1.0062 4 0.60 0 . 50040-0 . 2 97E-01 1.0055 

5 0.80 0. 62475-0. 348E-01 1.0046 6 1.00 0 . 72741-0 . 382E-01 1.0037 

7 1.20 0. 80914-0. 402E-01 1.0029 8 1.40 0 . 87161-0 . 412E-01 1.0022 

9 1.60 0 . 91726-0 . 416E-01 1.0015 10 1.80 0 . 94907-0 . 417E-01 1.0011 

11 2.00 0 . 97013-0 . 415E-01 1.0007 12 2.20 0 . 98334-0 . 414E-01 1.0004 

13 2.40 0 . 99119-0 . 412E-01 1.0003 14 2.60 0 . 99560-0 . 411E-01 1.0002 

15 2.80 0 . 99792-0 . 410E-01 1.0001 16 3.00 0 . 99908-0 . 410E-01 1.0000 

17 3.20 0 . 99962-0 . 409E-01 1.0000 18 3.40 0 . 99986-0 . 409E-01 1.0000 

19 3.60 0. 99996-0. 409E-01 1.0000 20 3.80 1 . 00000-0 . 408E-01 1.0000 


i«= 20 j = 5 (xp= 0.0390 yp= 0.0310 zp= -0.0696 ) 

k zeta u/ue v/vinf t/te k zeta u/ue v/vinf t/te 

1 0.00 0.00000 0 . 000E+00 1.0069 2 0.20 0 . 18889-0 . 162E-01 1.0066 

3 0.40 0 .35717-0 .289E-01 1.0061 4 0.60 0 . 50403-0 . 383E-01 1.0054 

5 0.80 0 . 62888-0 . 448E-01 1.0045 6 1.00 0 . 73167-0 . 491E-01 1.0036 

7 1.20 0. 81318-0. 515E-01 1.0028 8 1.40 0 . 87517-0 . 527E-01 1.0021 

9 1.60 0 . 92020-0 . 532E-01 1.0015 10 1.80 0 . 95132-0 . 532E-01 1.0010 

11 2.00 0 . 97175-0 . 530E-01 1.0007 12 2.20 0 . 98444-0 . 528E-01 1.0004 

13 2.40 0 . 99188-0 .526E-01 1.0002 14 2.60 0 . 99600-0 . 524E-01 1.0001 
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15 

2.80 

0. 99815-0. 524E-01 

1.0001 

16 

3.00 

0 . 99920-0 .523E-01 

1.0000 

17 

3.20 

0. 99968-0. 523E-01 

1.0000 

18 

3.40 

0. 99988-0. 522E-01 

1.0000 

19 

3.60 

0 . 99997-0 .522E-01 

1.0000 

20 

3.80 

1. 00000-0. 520E-01 

1.0000 


,= 

20 

j= 6 (xp= 

0.0390 

yp~ 

0 

.0386 zp= -0.0669 

* ) 

k 

zeta 

u/ue v/vinf 

t /te 

k 

zeta 

u/ue v/vinf 

t /te 

1 

0.00 

0.00000 0 . 000E+00 

1.0067 

2 

0.20 

0 .19080-0 . 194E-01 

1 . 0065 

3 

0.40 

0. 36062-0. 344E-01 

1 . 0060 

4 

0.60 

0. 50861-0. 456E-01 

1 . 0052 

5 

0.80 

0. 63409-0. 532E-01 

1 . 0044 

6 

1 . 00 

0. 73703-0. 581E-01 

1 . 0035 

7 

1.20 

0 .81825-0 . 608E-01 

1.0027 

8 

1 . 40 

0 . 87962-0 . 621E-01 

1.0020 

9 

1.60 

0 . 92383-0 . 625E-01 

1.0014 

10 

1.80 

0 . 95409-0 . 625E-01 

1.0009 

11 

2.00 

0. 97372-0. 623E-01 

1.0006 

12 

2.20 

0 . 98574-0 . 620E-01 

1.0004 

13 

2.40 

0. 99269-0. 618E-01 

1.0002 

14 

2.60 

0. 99647-0. 616E-01 

1.0001 

15 

2.80 

0 . 99840-0 . 615E-01 

1.0001 

16 

3.00 

0.99932-0. 615E-01 

1.0000 

17 

3.20 

0 . 99973-0 . 614E-01 

1.0000 

18 

3.40 

0. 99991-0. 614E-01 

1.0000 

19 

3.60 

0 . 99997-0 . 613E-01 

1.0000 

20 

3.80 

1.00000-0 . 611E-01 

1.0000 


,= 

20 

j= 7 (xp= 

0 . 0390 

yp= 

0 . 

,0461 zp= -0.0634 

: ) 

k 

zeta 

u/ue v/vinf 

t /te 

k 

zeta 

u/ue v/vinf 

t /te 

1 

0.00 

0.00000 0.000E+00 

1.0066 

2 

0.20 

0. 19293-0. 218E-01 

1.0064 

3 

0.40 

0. 36449-0. 386E-01 

1.0058 

4 

0 . 60 

0 .51373-0 .509E-01 

1.0051 

5 

0.80 

0. 63994-0. 593E-01 

1.0042 

6 

1.00 

0.74304-0 . 645E-01 

1.0034 

7 

1.20 

0. 82393-0. 674E-01 

1.0026 

8 

1.40 

0.88457-0. 687E-01 

1.0019 

9 

1.60 

0. 92785-0. 690E-01 

1.0013 

10 

1.80 

0. 95712-0. 689E-01 

1.0009 

11 

2.00 

0 . 97585-0 . 686E-01 

1.0006 

12 

2.20 

0. 98714-0. 683E-01 

1.0003 

13 

2.40 

0 . 99354-0 . 681E-01 

1.0002 

14 

2.60 

0. 99695-0. 679E-01 

1.0001 

15 

2.80 

0 . 99865-0 . 678E-01 

1.0001 

16 

3.00 

0. 99945-0. 678E-01 

1.0000 

17 

3.20 

0. 99979-0. 677E-01 

1.0000 

18 

3.40 

0.99993-0. 677E-01 

1.0000 

19 

3.60 

0. 99998-0. 677E-01 

1.0000 

20 

3.80 

1. 00000-0. 674E-01 

1.0000 


= 

20 

j= 8 <xp= 

0.0390 

yp= 

0. 

0534 zp= -0.0593 

t ) 

k 

zeta 

u/ue v/vinf 

t /te 

k 

zeta 

u/ue v/vinf 

t /te 

1 

0.00 

0.00000 0 . 000E+00 

1.0064 

2 

0.20 

0 . 19510-0 .235E-01 

1.0062 

3 

0.40 

0. 36851-0. 415E-01 

1.0056 

4 

0 . 60 

0 .51916-0 .545E-01 

1 . 0049 

5 

0.80 

0 . 64622-0 . 631E-01 

1.0041 

6 

1.00 

0.74956-0 . 684E-01 

1.0032 

7 

1.20 

0 . 83012-0 .712E-01 

1.0024 

8 

1.40 

0. 89000-0. 724E-01 

1.0018 

9 

1.60 

0 . 93224-0 .726E-01 

1.0012 

10 

1.80 

0 . 96043-0 .724E-01 

1.0008 

11 

2.00 

0 . 97815-0 .721E-01 

1.0005 

12 

2.20 

0. 98863-0. 717E-01 

1.0003 

13 

2.40 

0. 99444-0. 715E-01 

1.0002 

14 

2.60 

0. 99745-0. 713E-01 

1.0001 

15 

2.80 

0 . 99891-0 .712E-01 

1.0000 

16 

3.00 

0. 99957-0. 712E-01 

1.0000 

17 

3.20 

0. 99984-0. 712E-01 

1.0000 

18 

3.40 

0. 99995-0. 711E-01 

1.0000 

19 

3.60 

0. 99999-0. 711E-01 

1 . 0000 

20 

3.80 

1. 00000-0. 708E-01 

1.0000 


.= 

20 

j~ 9 ( xp— 

0.0390 

yp= 

0. 

.0603 zp= 

-0.0543 

) 

k 

zeta 

u/ue v/vinf 

t /te 

k 

zeta 

u/ue 

v/vinf 

t /te 

1 

0.00 

0.00000 O.OOOE+OO 

1.0062 

2 

0.20 

0.19759-0 

.241E-01 

1.0060 

3 

0.40 

0. 37312-0. 423E-01 

1.0055 

4 

0.60 

0.52536-0 

. 552E-0 1 

1.0047 

5 

0.80 

0 . 65337-0 . 637E-01 

1.0039 

6 

1.00 

0.75693-0 

. 686E-01 

1.0031 
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7 

1.20 

0 .83705-0 .710E-01 

1.0023 

8 

1.40 

0.89598-0 .719E-01 

1.0016 

9 

1 . 60 

0. 93700-0. 719E-01 

1.0011 

10 

1.80 

0. 96393-0. 716E-01 

1.0007 

11 

2.00 

0. 98054-0. 712E-01 

1.0005 

12 

2.20 

0. 99013-0. 709E-01 

1.0003 

13 

2.40 

0. 99531-0. 706E-01 

1.0001 

14 

2.60 

0. 99792-0. 705E-01 

1.0001 

15 

2 . 80 

0 . 99914-0. 704E-01 

1.0000 

16 

3.00 

0. 99967-0. 704E-01 

1.0000 

17 

3.20 

0 . 99989-0. 703E-01 

1.0000 

18 

3.40 

0. 99996-0. 703E-01 

1.0000 

19 

3.60 

0 . 99999-0. 703E-01 

1 . 0000 

20 

3.80 

1. 00000-0. 700E-01 

1.0000 


= 

20 

j= 10 

(xp= 

0.0390 

yp= 

0. 

0668 zp= -0.0486 ) 

k 

zeta 

u/ue 

v/vinf 

t/te 

k 

zeta 

u/ue v/vinf 

t/te 

1 

0.00 

0.00000 0 . 00 0E+00 

1.0060 

2 

0.20 

0.19970-0 .233E-01 

1.0058 

3 

0.40 

0. 37713-0. 407E-01 

1.0053 

4 

0.60 

0. 53088-0. 526E-01 

1.0045 

5 

0.80 

0. 65980-0. 602E-01 

1.0037 

6 

1.00 

0.76362-0 . 644E-01 

1.0029 

7 

1.20 

0. 84334-0. 664E-01 

1.0022 

8 

1.40 

0. 90140-0. 670E-01 

1.0015 

9 

1.60 

0. 94129-0. 668E-01 

1.0010 

10 

1.80 

0. 96705-0. 664E-01 

1.0007 

11 

2.00 

0. 98263-0. 660E-01 

1 .0004 

12 

2.20 

0.99143-0. 657E-01 

1.0002 

13 

2.40 

0. 99605-0. 654E-01 

1.0001 

14 

2.60 

0.99831-0 . 653E-01 

1.0001 

15 

2.80 

0. 99933-0. 652E-01 

1.0000 

16 

3.00 

0 . 99975-0 . 652E-01 

1.0000 

17 

3.20 

0. 99992-0. 652E-01 

1.0000 

18 

3.40 

0 . 99997-0 . 652E-01 

1.0000 

19 

3 . 60 

0 . 99999-0 . 651E-01 

1.0000 

20 

3.80 

1.00000-0 . 648E-01 

1.0000 



20 

j- ii 

(xp= 

0.0390 

yp= 

0. 

0728 zp= 

-0.0420 

) 

k 

zeta 

u / ue 

v/vinf 

t/te 

k 

zeta 

u/ue 

v/vinf 

t/te 

1 

0.00 

0.00000 O.OOOE-fOO 

1.0058 

2 

0.20 

0. 20142-0. 210E-01 

1.0056 

3 

0.40 

0 .38060-0 .364E-01 

1.0051 

4 

0.60 

0. 53584-0. 468E-01 

1.0044 

5 

0.80 

0. 66578-0. 531E-01 

1.0036 

6 

1.00 

0. 76995-0. 564E-01 

1.0028 

7 

1.20 

0. 84937-0. 577E-01 

1.0020 

8 

1.40 

0. 90661-0. 578E-01 

1.0014 

9 

1.60 

0 . 94540-0. 574E-01 

1.0009 

10 

1.80 

0. 97001-0. 569E-01 

1.0006 

11 

2.00 

0 . 98459-0. 565E-01 

1.0004 

12 

2.20 

0. 99261-0. 561E-01 

1.0002 

13 

2.40 

0 . 99671-0. 559E-01 

1.0001 

14 

2.60 

0 . 99864-0 .558E-01 

1.0001 

15 

2.80 

0. 99948-0. 558E-01 

1.0000 

16 

3.00 

0. 99982-0. 558E-01 

1.0000 

17 

3.20 

0 . 99994-0 .557E-01 

1.0000 

18 

3.40 

0. 99998-0. 557E-01 

1.0000 

19 

3.60 

1. 00000-0. 557E-01 

1.0000 

20 

3.80 

1. 00000-0. 553E-01 

1.0000 



20 

CM 

i— 1 

II 

*r~i 

(xp= 

0.0390 

yp= 

0 

.0780 zp— -0.0347 ) 

k 

zeta 

u/ue 

v/ vinf 

t/te 

k 

zeta 

u/ue v/vinf 

t/te 

1 

0.00 

0.00000 0.000E+00 

1.0056 

2 

0.20 

0.20283-0. 169E-01 

1.0054 

3 

0.40 

0. 38355-0. 290E-01 

1.0049 

4 

0.60 

0.54018-0 .369E-01 

1.0042 

5 

0.80 

0 . 67107-0. 414E-01 

1.0034 

6 

1.00 

0. 77559-0. 435E-01 

1.0026 

7 

1.20 

0. 85474-0. 441E-01 

1.0019 

8 

1.40 

0. 91121-0. 438E-01 

1.0013 

9 

1.60 

0. 94898-0. 432E-01 

1.0009 

10 

1.80 

0. 97255-0. 426E-01 

1.0005 

11 

2.00 

0. 98623-0. 422E-01 

1.0003 

12 

2.20 

0. 99358-0. 419E-01 

1.0002 

13 

2.40 

0. 99723-0. 417E-01 

1.0001 

14 

2.60 

0. 99890-0. 416E-01 

1.0000 

15 

2.80 

0 . 99960-0 . 416E-01 

1.0000 

16 

3.00 

0. 99986-0. 416E-01 

1.0000 

17 

3.20 

0. 99996-0. 416E-01 

1.0000 

18 

3.40 

0. 99999-0. 416E-01 

1.0000 

19 

3 . 60 

1. 00000-0. 415E-01 

1.0000 

20 

3.80 

1.00000-0 . 412E-01 

1.0000 


20 

j= 13 

{ xp= 0.0390 

yp= 

0.0822 zp= -0.0267 ) 

k zeta 

u/ue 

v/vinf t/te 

k 

zeta u/ue v/vinf t/te 
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1 

o 

o 

o 

0.00000 0 . 000E+00 

1.0055 

3 

0.40 

0. 38526-0. 196E-01 

1.0048 

5 

0.80 

0 . 67451-0. 267E-01 

1.0033 

7 

1.20 

0 . 85840-0 .269E-01 

1 . 0018 

9 

1.60 

0 . 95145-0 .254E-01 

1.0008 

11 

2.00 

0 . 98734-0 .243E-01 

1.0003 

13 

2.40 

0. 99757-0. 239E-01 

1.0001 

15 

2.80 

0 . 99967-0 .238E-01 

1.0000 

17 

3.20 

0. 99997-0. 238E-01 

1.0000 

19 

3.60 

1 . 00000-0 .237E-01 

1.0000 


= 

20 

j- 14 

(xp= 

0.0390 

k 

zeta 

u/ue 

v/vinf 

t/te 

1 

0.00 

0.00000 0 . 00QE+00 

1.0054 

3 

0.40 

0. 38568-0. 814E-02 

1.0047 

5 

0.80 

0 . 67600-0 . 919E-02 

1.0032 

7 

1.20 

0 . 86028-0 .704E-02 

1.0018 

9 

1.60 

0 . 95282-0 . 484E-02 

1.0008 

11 

2.00 

0 . 98798-0 .368E-02 

1.0003 

13 

2.40 

0 . 99777-0 .329E-02 

1.0001 

15 

2.80 

0 . 99971-0 .321E-02 

1.0000 

17 

3.20 

0 . 99997-0 .321E-02 

1.0000 

19 

3.60 

1 .00000-0 .317E-02 

1.0000 


= 

20 

j= 15 

(xp= 

0.0390 

k 

zeta 

u/ue 

v/vinf 

t /te 

1 

0.00 

0.00000 

0 . OOOE+OO 

1.0054 

3 

0.40 

0.38387 

0.360E-02 

1 .0047 

5 

0.80 

0 . 67381 

0 . 907E-02 

1.0032 

7 

1.20 

0.85874 

0 . 141E-01 

1.0018 

9 

1.60 

0.95210 

0 . 172E-01 

1.0008 

11 

2.00 

0.98775 

0 . 185E-01 

1.0003 

13 

2.40 

0 . 99772 

0 . 189E-01 

1.0001 

15 

2.80 

0 . 99970 

0 . 190E-01 

1.0000 

17 

3.20 

0 . 99997 

0 . 190E-01 

1.0000 

19 

3.60 

1.00000 

0 . 190E-01 

1.0000 



20 

j= 16 

(xp= 

0.0390 

k 

zeta 

u/ue 

v/ vinf 

t /te 

1 

0.00 

0.00000 

0 . OOOE+OO 

1.0054 

3 

0.40 

0.37875 

0 . 135E-01 

1.0047 

5 

0.80 

0.66609 

0 .246E-01 

1.0033 

7 

1.20 

0.85178 

0 .324E-01 

1.0019 

9 

1.60 

0.94787 

0.366E-01 

1.0008 

11 

2.00 

0.98597 

0.383E-01 

1.0003 

13 

2.40 

0.99720 

0 . 388E-01 

1.0001 

15 

2.80 

0.99960 

0.389E-01 

1.0000 

17 

3.20 

0.99996 

0.389E-01 

1.0000 

19 

3.60 

1.00000 

0.389E-01 

1.0000 


2 

0.20 

0. 20356-0. 117E-01 

1.0053 

4 

0.60 

0. 54287-0. 244E-01 

1.0041 

6 

1 . 00 

0. 77937-0. 273E-01 

1.0025 

8 

1 . 40 

0. 91438-0. 262E-01 

1.0013 

10 

1.80 

0 . 97429-0 .247E-01 

1.0005 

12 

2.20 

0 . 99423-0 .240E-01 

1.0002 

14 

2.60 

0 . 99906-0 .238E-01 

1.0000 

16 

3.00 

0 . 99989-0 .238E-01 

1.0000 

18 

3.40 

0 . 99999-0 .237E-01 

1.0000 

20 

3.80 

1 .00000-0 .234E-01 

1.0000 


yp= 

0. 

,0854 zp= 

-0.0182 

) 

k 

zeta 

u/ue 

v/ vinf 

t /te 

2 

0.20 

0. 20360-0. 516E-02 

1.0052 

4 

o 

o 

0.54384-0 . 932E-02 

1.0040 

6 

1.00 

0. 78119-0. 827E-02 

1.0025 

8 

1.40 

0. 91608-0. 583E-02 

1.0012 

10 

1.80 

0. 97528-0. 414E-02 

1.0005 

12 

2.20 

0. 99460-0. 343E-02 

1.0002 

14 

2.60 

0. 99915-0. 324E-02 

1.0000 

16 

3.00 

0. 99991-0. 321E-02 

1.0000 

18 

3.40 

0 . 99999-0 .320E-02 

1.0000 

20 

3.80 

1. 00000-0. 292E-02 

1.0000 


yp= 

0. 

.0874 zp= 

-0.0092 

) 

k 

zeta 

u/ ue 

v/ vinf 

t/te 

2 

0.20 

0.20250 

0 . 144E-02 

1.0052 

4 

0 . 60 

0.54166 

0 . 625E-02 

1.0040 

6 

1.00 

0.77925 

0 . 117E-01 

1.0025 

8 

1 . 40 

0.91498 

0.159E-01 

1.0012 

10 

1.80 

0.97486 

0 . 180E-01 

1 . 0005 

12 

2.20 

0 . 99449 

0 . 188E-01 

1 . 0002 

14 

2 . 60 

0.99913 

0 . 190E-01 

1.0000 

16 

3.00 

0.99990 

0.190E-01 

1.0000 

18 

3.40 

0 . 99999 

0 . 190E-01 

1.0000 

20 

3.80 

1.00000 

0 . 192E-01 

1.0000 


yp~ 

0 . 

.0881 zp= 

o.oooc 

> ) 

k 

zeta 

u/ue 

v/vinf 

t/te 

2 

0.20 

0.19973 

0.696E-02 

1.0052 

4 

0.60 

0.53483 

0 . 194E-01 

1.0041 

6 

1.00 

0.77152 

0 .290E-01 

1 . 0025 

8 

1.40 

0.90929 

0.349E-01 

1.0013 

10 

1.80 

0 . 97198 

0.377E-01 

1 . 0005 

12 

2.20 

0.99349 

0.386E-01 

1.0002 

14 

2 . 60 

0.99889 

0.388E-01 

1 . 0000 

16 

3.00 

0 . 99987 

0 . 389E-01 

1.0000 

18 

3.40 

0 . 99999 

0 .389E-01 

1 . 0000 

20 

3.80 

1.00000 

0 .391E-01 

1.0000 
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.= 

20 

j= 17 

( xp— 

0.0390 

k 

zeta 

u/ue 

v/vinf 

t/te 

1 

0 . 00 

0.00000 

0 . 000E+00 

1.0054 

3 

0.40 

0.37889 

0 . 1 97E-0 1 

1.0047 

5 

0.80 

0 . 66685 

0.345E-01 

1.0033 

7 

1.20 

0.85272 

0 . 438E-01 

1.0019 

9 

1.60 

0 . 94851 

0.485E-01 

1.0008 

11 

2 . 00 

0.98626 

0 . 503E-01 

1.0003 

13 

2.40 

0.99729 

0 . 508E-01 

1.0001 

15 

2 . 80 

0.99961 

0.509E-01 

1.0000 

17 

3.20 

0 . 99996 

0 . 509E-01 

1.0000 

19 

3.60 

1.00000 

0.509E-01 

1.0000 


= 

20 

00 

rH 

II 

-HI 

(xp= 

0 . 0390 

k 

zeta 

u/ ue 

v/vinf 

t/te 

1 

0.00 

0.00000 

0 . OOOE+OO 

1.0055 

3 

0.40 

0.38241 

0.326E-01 

1.0048 

5 

0.80 

0 . 67376 

0 .542E-01 

1.0033 

7 

1.20 

0.85989 

0 . 662E-01 

1 .0018 

9 

1 . 60 

0 . 95320 

0 .715E-01 

1.0008 

11 

2.00 

0 . 98830 

0 .732E-01 

1.0003 

13 

2.40 

0 .99788 

0 .737E-01 

1.0001 

15 

2.80 

0 . 99973 

0 .737E-01 

1.0000 

17 

3.20 

0 . 99997 

0 .737E-01 

1.0000 

19 

3.60 

1 . 00000 

0 . 737E-01 

1.0000 


.= 

20 

j= 19 

(xp= 

0.0390 

k 

zeta 

u/ ue 

v/ vinf 

t/te 

1 

0.00 

0.00000 

0 . 000E+00 

1.0057 

3 

0.40 

0 . 38175 

0 . 478E-01 

1.0050 

5 

0.80 

0 . 67349 

0 .776E-01 

1.0034 

7 

1.20 

0.86009 

0 . 930E-01 

1.0019 

9 

1.60 

0 . 95351 

0 . 993E-01 

1.0008 

11 

2.00 

0 . 98848 

0 . 101E+00 

1.0003 

13 

2.40 

0 . 99795 

0 . 102E+00 

1.0001 

15 

2.80 

0 . 99975 

0 . 102E+00 

1.0000 

17 

3.20 

0.99998 

0 . 102E+00 

1.0000 

19 

3.60 

1.00000 

0 . 102E+00 

1.0000 


= 

20 

j = 20 

(xp= 

0.0390 

k 

zeta 

u/ue 

v/vinf 

t/te 

1 

0 . 00 

0.00000 

0 .OOOE+OO 

1.0059 

3 

0.40 

0.37645 

0 . 628E-01 

1.0052 

5 

0.80 

0.66548 

0 . 101E+00 

1.0036 

7 

1.20 

0.85291 

0 . 120E+00 

1.0020 

9 

1.60 

0 . 94922 

0 . 127E+00 

1.0009 

11 

2.00 

0.98674 

0 . 129E+00 

1.0003 

13 

2.40 

0 . 99747 

0 . 130E+00 

1.0001 


yp= 0.0879 zp= 0.0092 ) 


k 

zeta 

u/ue 

v/vinf 

t/te 

2 

0.20 

0.19967 

0 . 105E-01 

1.0052 

4 

0.60 

0.53530 

0 .278E-01 

1.0041 

6 

1.00 

0.77245 

0 .398E-01 

1.0026 

8 

1 . 40 

0 . 91012 

0.467E-01 

1.0013 

10 

1.80 

0 . 97243 

0 .497E-01 

1.0005 

12 

2.20 

0.99365 

0 .507E-01 

1.0002 

14 

2.60 

0.99893 

0 .509E-01 

1.0000 

16 

3.00 

0.99987 

0 .509E-01 

1.0000 

18 

3.40 

0.99999 

0 .509E-01 

1.0000 

20 

3.80 

1.00000 

0 .511E-01 

1.0000 


yp= 

0. 

0869 zp= 

= 0.0185 

) 

k 

zeta 

u/ue 

v/ vinf 

t/te 

2 

0.20 

0.20120 

0 . 177E-01 

1.0053 

4 

0.60 

0.54077 

0.447E-01 

1.0041 

6 

M 

O 

O 

0.77995 

0 . 612E-01 

1.0025 

8 

1.40 

0.91623 

0.695E-01 

1.0012 

10 

1.80 

0.97568 

0 .726E-01 

1.0005 

12 

2.20 

0.99481 

0 .735E-01 

1.0002 

14 

2.60 

0.99921 

0.737E-01 

1.0000 

16 

3.00 

0.99991 

0 . 737E-01 

1.0000 

18 

3.40 

0.99999 

0 .737E-01 

1 . 0000 

20 

3.80 

1.00000 

0.739E-01 

1.0000 


yp= 

0. 

0843 zp= 

= 0.027 

4 ) 

k 

zeta 

u/ue 

v/ vinf 

t/te 

2 

0.20 

0.20068 

0 .262E-01 

1.0055 

4 

0.60 

0.54023 

0 . 648E-01 

1.0042 

6 

1.00 

0.77995 

0 . 868E-01 

1.0026 

8 

1.40 

0.91653 

0 . 969E-01 

1.0013 

10 

1.80 

0.97594 

0 . 101E+00 

1.0005 

12 

2.20 

0.99492 

0 . 101E+00 

1.0002 

14 

2 . 60 

0.99924 

0 . 102E+00 

1.0000 

16 

3.00 

0 . 99992 

0 . 102E+00 

1.0000 

18 

3.40 

0 . 99999 

0 . 102E+00 

1.0000 

20 

3.80 

1.00000 

0 . 102E+00 

1.0000 


yp= 

0. 

0803 zp= 

0.0357 

) 

k 

zeta 

u/ue 

v/vinf 

t/te 

2 

0.20 

0.19781 0 . 347E-01 

1.0057 

4 

0.60 

0.53315 0 . 846E-01 

1.0044 

6 

1.00 

0.77195 0 . 112E+00 

1.0028 

8 

1.40 

0.91071 0 . 124E+00 

1.0014 

10 

1.80 

0.97307 0 . 128E+00 

1.0006 

12 

2.20 

0.99396 0 . 129E+00 

1.0002 

14 

2.60 

0.99903 0 . 130E+00 

1.0000 


36 



15 

2.80 

0.99966 

0 . 130E+00 

1.0000 

17 

3.20 

0 . 99997 

0 . 130E+00 

1.0000 

19 

3.60 

1.00000 

0 . 130E+00 

1.0000 



20 

j= 21 

(xp= 

0.0390 

k 

zeta 

u/ue 

v/ vinf 

t/te 

1 

0.00 

0.00000 

0 . OOOE+OO 

1 .0062 

3 

0.40 

0.36798 

0 .736E-01 

1.0055 

5 

0.80 

0 . 65204 

0 . 118E+00 

1.0039 

7 

1.20 

0.84024 

0 . 141E+00 

1.0022 

9 

1.60 

0 . 94117 

0 . 150E+00 

1.0011 

11 

2.00 

0.98320 

0 . 152E+00 

1.0004 

13 

2.40 

0.99640 

0 . 153E+00 

1.0001 

15 

2.80 

0 . 99944 

0.153E+00 

1.0000 

17 

3.20 

0 . 99994 

0 . 153E+00 

1.0000 

19 

3.60 

1.00000 

0 . 153E+00 

1.0000 


,= 

20 

j= 22 

(xp= 

0.0390 

k 

zeta 

u/ue 

v/ vinf 

t/te 

1 

0.00 

0.00000 

0 .OOOE+OO 

1.0065 

3 

0 . 40 

0.35755 

0 .794E-01 

1.0058 

5 

0.80 

0 . 63545 

0 . 128E+00 

1.0042 

7 

1.20 

0.82411 

0 . 154E+00 

1.0025 

9 

1.60 

0 . 93026 

0 . 1 64E+00 

1.0013 

11 

2.00 

0 . 97794 

0 . 167E+00 

1.0005 

13 

2.40 

0 . 99458 

0 . 168E+00 

1.0002 

15 

2.80 

0 . 99900 

0 . 168E+00 

1.0000 

17 

3.20 

0.99987 

0 . 168E+00 

1 . 0000 

19 

3.60 

0.99999 

0 . 168E+00 

1.0000 


.= 

20 

j= 23 

(xp= 

0.0390 

k 

zeta 

u/ue 

v/ vinf 

t/te 

1 

0.00 

0.00000 

0 .OOOE+OO 

1.0068 

3 

0.40 

0.34657 

0.796E-01 

1.0061 

5 

0.80 

0 . 61789 

0 . 130E+00 

1.0045 

7 

1.20 

0 . 80648 

0 . 157E+00 

1.0028 

9 

1.60 

0 . 91760 

0 . 169E+00 

1.0015 

11 

2.00 

0 . 97125 

0 . 173E+00 

1.0007 

13 

2.40 

0 . 99197 

0 . 174E+00 

1.0002 

15 

2.80 

0.99825 

0 . 17 4E+00 

1.0001 

17 

3.20 

0 . 99971 

0 . 174E+00 

1.0000 

19 

3.60 

0.99997 

0 . 174E+00 

1 . 0000 



20 

j= 24 

(xp= 

0.0390 

k 

zeta 

u/ue 

v/ vinf 

t/te 

1 

0.00 

0.00000 

0 .000E+00 

1.0070 

3 

0.40 

0.33589 

0 .755E-01 

1.0064 

5 

0.80 

0.60096 

0 . 124E+00 

1.0048 


16 

3.00 

0.99989 

0 . 130E+00 

1.0000 

18 

3.40 

0.99999 

0 . 130E + 0 0 

1.0000 

20 

3.80 

1.00000 

0 . 130E + 00 

1 .0000 


yp= 

0. 

0748 zp= 

0.0432 ) 

k 

zeta 

u/ue 

v/ vinf 

t/te 

2 

0.20 

0.19335 

0 . 406E-01 

1 .0060 

4 

0.60 

0.52154 

0 . 992E-01 

1 . 0047 

6 

1.00 

0.75819 

0 . 132E+00 

1.0030 

8 

1 . 40 

0.90012 

0 . 146E+00 

1.0016 

10 

1.80 

0.96748 

0 . 151E+00 

1 . 0007 

12 

2.20 

0.99192 

0 . 153E+00 

1.0002 

14 

2 . 60 

0.99852 

0 . 153E+00 

1.0001 

16 

3.00 

0.99981 

0 . 153E+00 

1.0000 

18 

3.40 

0 . 99998 

0 . 153E+00 

1.0000 

20 

3.80 

1.00000 

0 . 153E+00 

1.0000 


yp= 

0. 

0682 zp= 

0.0496 ) 

k 

zeta 

u/ ue 

v/ vinf 

t/te 

2 

0.20 

0 . 18779 

0.437E-01 

1 .0063 

4 

0 . 60 

0.50728 

0 . 107E+00 

1 . 0050 

6 

1.00 

0.74101 

0 . 143E+00 

1.0033 

8 

1.40 

0.88628 

0 . 160E+00 

1.0018 

10 

1.80 

0.95959 

0 . 166E+00 

1.0008 

12 

2.20 

0.98870 

0 . 168E+00 

1.0003 

14 

2.60 

0.99758 

0 . 168E+00 

1.0001 

16 

3.00 

0.99962 

0 . 168E+00 

1.0000 

18 

3.40 

0.99996 

0 . 168E+00 

1.0000 

20 

3 . 80 

1.00000 

0 . 168E+00 

1 . 0000 


yp= 

0. 

0 60 9 zp= 

= 0.0549 ) 

k 

zeta 

u/ ue 

v/ vinf 

t/te 

2 

0.20 

0 . 18191 

0 . 436E-01 

1.0066 

4 

0.60 

0.49227 

0 . 108E+00 

1.0054 

6 

1.00 

0.72260 

0 . 146E+00 

1.0037 

8 

1 . 40 

0.87073 

0 . 164E+00 

1.0021 

10 

1.80 

0.95003 

0 .171E+00 

1.0010 

12 

2.20 

0.98435 

0 . 173E+00 

1 . 0004 

14 

2.60 

0.99612 

0 . 174E+00 

1.0001 

16 

3.00 

0.99926 

0 . 174E+00 

1 . 0000 

18 

3.40 

0.99990 

0 . 174E+00 

1 . 0000 

20 

3.80 

1.00000 

0 . 174E+00 

1 . 0000 


yp= 

0. 

0532 zp= 

0 . 0591 

) 

k 

zeta 

u/ue 

v/vinf 

t/te 

2 

0.20 

0.17613 0 . 413E-01 

1.0068 

4 

0.60 

0.47778 0 . 103E+00 

1.0056 

6 

1.00 

0.70473 C 

) . 140E + 00 

1 .0040 
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7 

1.20 

0.78915 

0.152E+00 

1.0031 

8 

1.40 

0.85516 

0 . 159E+00 

1.0024 

9 

1.60 

0.90457 

0.164E+00 

1.0017 

10 

1.80 

0.93986 

0 . 167E+00 

1.0012 

11 

2.00 

0.96383 

0 .168E+00 

1.0008 

12 

2.20 

0.97930 

0 . 169E+00 

1.0005 

13 

2 . 40 

0.98875 

0 . 169E+00 

1.0003 

14 

2.60 

0 . 99421 

0 . 169E+00 

1.0002 

15 

2.80 

0.99719 

0 .169E+00 

1.0001 

16 

3.00 

0.99872 

0 . 169E+00 

1.0001 

17 

3.20 

0.99946 

0 . 169E+00 

1.0000 

18 

3.40 

0.99979 

0 . 169E+00 

1.0000 

19 

3 . 60 

0.99994 

0 . 169E+00 

1.0000 

20 

3.80 

1.00000 

0 . 169E+00 

1.0000 


- 

20 

j= 2 5 

(xp= 

0.0390 

yp= 

0. 

0453 zp= 

0.0623 

) 

k 

zeta 

u/ue 

v/ vinf 

t/te 

k 

zeta 

u/ue 

v/ vinf 

t/te 

1 

0.00 

0.00000 

0 .000E+00 

1.0073 

2 

0.20 

0.17080 

0 . 368E-01 

1.0071 

3 

0.40 

0.32612 

0 . 677E-01 

1.0066 

4 

0.60 

0.46456 

0 . 929E-01 

1.0059 

5 

0.80 

0.58549 

0 . 113E+00 

1.0051 

6 

1.00 

0.68832 

0 . 128E+00 

1.0042 

7 

1.20 

0.77306 

0 . 139E+00 

1.0034 

8 

1.40 

0.84045 

0 . 146E+00 

1.0026 

9 

1.60 

0.89197 

0 . 151E+00 

1.0020 

10 

1.80 

0.92974 

0 . 154E+00 

1.0014 

11 

2.00 

0.95620 

0 . 156E+00 

1.0010 

12 

2.20 

0.97389 

0 . 156E+00 

1.0007 

13 

2.40 

0.98515 

0 . 157E+00 

1.0004 

14 

2.60 

0.99196 

0 . 157E+00 

1.0003 

15 

2.80 

0.99587 

0 . 157E+00 

1.0002 

16 

3.00 

0.99800 

0 . 157E+00 

1.0001 

17 

3.20 

0 .99910 

0 . 157E+00 

1.0000 

18 

3.40 

0.99963 

0 . 157E+00 

1.0000 

19 

3 . 60 

0 .99988 

0 . 157E+00 

1.0000 

20 

3.80 

1.00000 

0 . 157E+00 

1.0000 


= 

20 

j= 26 

(xp= 

0.0390 

yp= 

0. 

0374 zp= 

= 0.0648 

) 

k 

zeta 

u/ ue 

v/ vinf 

t/te 

k 

zeta 

u/ue 

v/vinf 

t/te 

1 

0.00 

0.00000 

0 . 000E+00 

1.0074 

2 

0.20 

0.16640 

0 .314E-01 

1.0072 

3 

0.40 

0.31802 

0 -581E-01 

1.0068 

4 

0.60 

0.45354 

0 .799E-01 

1.0061 

5 

0.80 

0.57249 

0 . 973E-01 

1.0053 

6 

1.00 

0 . 67437 

0 . 111E+00 

1.0045 

7 

1.20 

0.75917 

0 . 120E+00 

1.0036 

8 

1.40 

0.82751 

0 . 127E+00 

1.0029 

9 

1.60 

0.88066 

0 . 132E+00 

1.0022 

10 

1.80 

0.92042 

0 . 135E+00 

1.0016 

11 

2.00 

0 . 94897 

0 . 136E+00 

1.0011 

12 

2.20 

0.96859 

0 . 137E+00 

1.0008 

13 

2.40 

0 . 98149 

0 . 138E+00 

1.0005 

14 

2.60 

0.98958 

0 . 138E+00 

1.0003 

15 

2.80 

0 . 99441 

0 . 138E+00 

1.0002 

16 

3.00 

0.99717 

0 . 138E+00 

1.0001 

17 

3.20 

0 . 99866 

0 . 138E+00 

1.0001 

18 

3.40 

0.99943 

0 . 138E+00 

1.0000 

19 

3.60 

0 . 99981 

0 . 138E+00 

1.0000 

20 

3.80 

1.00000 

0 . 138E+00 

1.0000 


.= 

20 

j= 27 

(xp= 

0.0390 

yp= 

0. 

0297 zp= 

0.0666 

; > 

k 

zeta 

u/ue 

v/vinf 

t/te 

k 

zeta 

u/ue 

v/ vinf 

t/te 

1 

0.00 

0.00000 

0 -000E+00 

1.0076 

2 

0.20 

0.16294 

0 .256E-01 

1.0074 

3 

0.40 

0.31172 

0 . 473E-01 

1.0069 

4 

0.60 

0.44503 

0 . 653E-01 

1.0063 

5 

0.80 

0.56249 

0 .796E-01 

1.0055 

6 

1.00 

0.66365 

0 . 908E-01 

1.0046 

7 

1.20 

0.74847 

0 . 990E-01 

1.0038 

8 

1.40 

0.81748 

0 . 105E+00 

1.0030 

9 

1.60 

0.87179 

0 . 109E+00 

1.0023 

10 

1.80 

0.91301 

0 . 111E+00 

1.0017 

11 

2.00 

0 . 94310 

0 . 113E+00 

1.0012 

12 

2.20 

0.96420 

0 . 114E+00 

1.0009 

13 

2.40 

0 . 97837 

0 . 114E+00 

1.0006 

14 

2.60 

0.98749 

0 . 114E+00 

1.0004 

15 

2.80 

0 . 99310 

0 . 114E+00 

1.0002 

16 

3.00 

0.99639 

0 . 114E+00 

1.0001 

17 

3.20 

0 . 99823 

0 . 114E+00 

1.0001 

18 

3.40 

0.99922 

0 . 114E+00 

1.0000 

19 

3 . 60 

0 . 99974 

0 . 114E+00 

1.0000 

20 

3.80 

1.00000 

0 . 114E+00 

1.0000 


20 j= 28 

(xp= 0 .03 90 

yp= 0 . 0220 zp= 

0.0679 ) 

k zeta u/ue 

v/vinf t/te 

k zeta u/ue 

v/vinf t/te 
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1 

0.00 

a. 00000 

0 . OOOE+OO 

1.0077 

3 

0.40 

0.30652 

0 .359E-01 

1.0070 

5 

0.80 

0.55413 

0 . 608E-01 

1.0056 

7 

1.20 

0.73936 

0 . 759E-01 

1.0040 

9 

1.60 

0.86407 

0 . 837E-01 

1.0025 

11 

2.00 

0.93785 

0 . 870E-01 

1.0013 

13 

2 . 40 

0 . 97549 

0 . 880E-01 

1.0006 

15 

2.80 

0 . 99183 

0 . 882E-01 

1.0003 

17 

3.20 

0 . 99780 

0 . 881E-01 

1.0001 

19 

3.60 

0 . 99966 

0 . 881E-01 

1.0000 


i= 

20 

j= 29 

(xp= 

0.0390 

k 

zeta 

u/ue 

v/ vinf 

t/te 

1 

0.00 

0 . 00000 

0 . OOOE+OO 

1.0077 

3 

0.40 

0.30278 

0 .241E-01 

1 . 0071 

5 

0.80 

0.54818 

0 . 408E-01 

1 . 0057 

7 

1.20 

0.73293 

0.510E-01 

1.0041 

9 

1.60 

0 . 85865 

0 . 563E-01 

1.0026 

11 

2.00 

0 . 93415 

0 .586E-01 

1.0014 

13 

2 . 40 

0 . 97344 

0 . 593E-01 

1 . 0007 

15 

2.80 

0 .99090 

0 . 595E-01 

1.0003 

17 

3.20 

0 .99748 

0 . 595E-01 

1.0001 

19 

3.60 

0 . 99959 

0 .594E-01 

1.0000 


i= 

20 

j= 30 

(xp= 

0.0390 

k 

zeta 

u/ue 

v/ vinf 

t/te 

1 

0.00 

0.00000 

0 .000E+00 

1.0078 

3 

0.40 

0.30015 

0 . 121E-01 

1.0072 

5 

0.80 

0.54377 

0 . 205E-01 

1.0058 

7 

1.20 

0.72792 

0 .257E-01 

1.0041 

9 

1.60 

0.85418 

0.285E-01 

1.0026 

11 

2.00 

0 . 93094 

0 .297E-01 

1.0015 

13 

2.40 

0 . 97156 

0 . 301E-01 

1.0007 

15 

2.80 

0 . 99003 

0 . 302E-01 

1.0003 

17 

3.20 

0 . 99717 

0 .302E-01 

1.0001 

19 

3.60 

0 . 99953 

0 .301E-01 

1.0000 


i= 

20 

j= 31 

(xp= 

0 . 0390 

k 

zeta 

u/ue 

vy/ vinf 

t/te 

1 

0.00 

0.00000 0. OOOE+OO 

1.0078 

3 

0.40 

0 .30243-0 .111E+00 

1.0072 

5 

0.80 

0. 54821-0. 186E+00 

1 . 0058 

7 

1.20 

0. 73363-0. 233E+00 

1.0041 

9 

1.60 

0 . 85976-0 . 259E+00 

1.0026 

11 

2.00 

0. 93519-0. 273E+00 

1.0014 

13 

2.40 

0 . 97412-0 .281E+00 

1.0007 

15 

2.80 

0 . 99124-0 .285E+00 

1.0003 

17 

3.20 

0 . 99760-0 .287E+00 

1.0001 

19 

3.60 

0. 99961-0. 288E+00 

1.0000 


2 

0.20 

0.16010 

0 . 194E-01 

1.0075 

4 

0.60 

0.43796 

0 . 497E-01 

1.0064 

6 

1.00 

0.65460 

0. 695E-01 

1 . 0048 

8 

1 . 40 

0.80886 

0 . 806E-01 

1.0032 

10 

1.80 

0 . 90647 

0 . 857E-01 

1.0019 

12 

2.20 

0.96020 

0.876E-01 

1.0010 

14 

2.60 

0.98552 

0 . 881E-01 

1.0004 

16 

3.00 

0.99562 

0 . 882E-01 

1.0002 

18 

3.40 

0.99901 

0 . 881E-01 

1 . 0000 

20 

3.80 

1.00000 

0 . 880E-01 

1 .0000 


yp= 

0. 

014 6 zp= 

0.0686 ) 

k 

zeta 

u/ue 

v/ vinf 

t/te 

2 

0.20 

0.15805 

0 . 130E-01 

1.0075 

4 

0.60 

0.43290 

0.333E-01 

1.0065 

6 

1 . 00 

0.64820 

0.466E-01 

1.0049 

8 

1.40 

0.80279 

0 . 541E-01 

1 . 0033 

10 

1.80 

0.90187 

0 . 577E-01 

1.0019 

12 

2.20 

0.95737 

0.591E-01 

1.0010 

14 

2 . 60 

0 . 98411 

0 .594E-01 

1 . 0005 

16 

3.00 

0.99505 

0 . 595E-01 

1.0002 

18 

3.40 

0.99885 

0 . 594E-01 

1.0001 

20 

3.80 

1.00000 

0 . 594E-0 1 

1.0000 


yp= 

0 

.0073 zp- 

0.0691 ) 

k 

zeta 

u/ ue 

v/ vinf 

t/te 

2 

0.20 

0.15664 

0.649E-02 

1 . 0076 

4 

0.60 

0.42926 

0 . 167E-01 

1.0065 

6 

1.00 

0.64333 

0 .235E-01 

1.0050 

8 

1.40 

0.79792 

0.273E-01 

1.0033 

10 

1.80 

0.89798 

0 .292E-01 

1.0020 

12 

2.20 

0 . 95485 

0 .299E-01 

1 . 0011 

14 

2.60 

0 . 98278 

0 .301E-01 

1 . 0005 

16 

3.00 

0.99451 

0 . 302E-01 

1.0002 

18 

3.40 

0.99869 

0 . 301E-01 

1.0001 

20 

3.80 

1.00000 

0 . 301E-01 

1.0000 


yp= 

0 . 

.0000 zp= 0.0692 ) 

k 

zeta 

u/ue vy/vinf 

t/te 

2 

0.20 

0 . 15777-0 . 601E-01 

1 . 0076 

4 

0.60 

0. 43267-0. 153E+00 

1.0065 

6 

1.00 

0. 64856-0. 213E+00 

1.0049 

8 

1.40 

0. 80375-0. 248E+00 

1.0033 

10 

1.80 

0. 90300-0. 267E+00 

1.0019 

12 

2.20 

0. 95825-0. 277E+00 

1 . 0010 

14 

2 . 60 

0. 98460-0. 283E+00 

1 . 0005 

16 

3.00 

0. 99526-0. 286E+00 

1.0002 

18 

3 . 40 

0 . 99890-0 .287E+00 

1.0000 

20 

3.80 

1 . 00000-0 .288E+00 

1 . 0000 


39 



******* 


boundary- layer parameters********** 


i j xpd 

blth 


ypd 

dspth 


zpd cfx 

thmom twall 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 


0 . 400000E-02 
0 .243324E-03 
0 . 400000E-02 
0 .243519E-03 
0 . 400000E-02 
0 .244129E-03 
0 . 400000E-02 
0 .245175E-03 
0 . 400000E-02 
0 .246589E-03 
0 . 400000E-02 
0.248352E-03 
0 . 400000E-02 
0 .250346E-03 
0 . 400000E-02 
0 .252521E-03 
0 .400000E-02 
0 . 254681E-03 
0 . 400000E-02 
0 .256655E-03 
0 . 400000E-02 
0 .258248E-03 
0 . 400000E-02 
0 .259278E-03 
0 . 400000E-02 
0 .259439E-03 
0 . 400000E-02 
0 .258717E-03 
0 . 400000E-02 
0 .256801E-03 
0 . 400000E-02 
0 . 254517E-03 
0 . 400000E-02 
0 .251526E-03 
0 . 400000E-02 
0 .245833E-03 
0 . 400000E-02 
0 . 238236E-03 
0 . 400000E-02 
0 .229758E-03 
0 . 400000E-02 
0 .221211E-03 
0 . 400000E-02 
0 .213374E-03 
0 . 400000E-02 
0 .206555E-03 
0 . 400000E-02 
0 .200909E-03 
0 . 400000E-02 
0 . 196336E-03 
0 . 400000E-02 
0 . 192768E-03 
0 . 400000E-02 
0 . 190066E-03 
0 . 400000E-02 


-0 . 148836E-07 
0 . 656754E-04 
0 .243383E-02 
0 . 657272E-04 
0 . 485302E-02 
0 . 658921E-04 
0 . 724221E-02 
0 . 661735E-04 
0 . 958455E-02 
0 . 665546E-04 
0 . 118611E-01 
0 . 670294E-04 
0 . 140503E-01 
0 . 675655E-04 
0 . 161280E-01 
0 . 681520E-04 
0 . 180669E-01 
0 . 687331E-04 
0 . 198374E-01 
0 . 692654E-04 
0 .214084E-01 
0 . 696960E-04 
0 .227483E-01 
0 . 699745E-04 
0 .238273E-01 
0 .700190E-04 
0 .246190E-01 
0 . 698272E-04 
0 .251028E-01 
0 . 693129E-04 
0 .252644E-01 
0 . 687023E-04 
0 .251809E-01 
0 . 679001E-04 
0 .247446E-01 
0 . 663697E-04 
0.238921E-01 
0 . 643274E-04 
0.226377E-01 
0 . 620466E-04 
0 .210391E-01 
0 . 597466E-04 
0 . 191770E-01 
0 .576379E-04 
0 . 171360E-01 
0 .558018E-04 
0 . 149911E-01 
0 . 542825E-04 
0 . 128007E-01 
0 . 530516E-04 
0 . 106047E-01 
0.520912E-04 
0 . 842718E-02 
0 . 513642E-04 
0 . 627 94 4E-02 


-0 .232644E-01 
0 .277774E-04 
-0 .231564E-01 
0 .277994E-04 
-0 .228317E-01 
0.278693E-04 
-0 .222893E-01 
0 .279888E-04 
-0 .215273E-01 
0 .281505E-04 
-0 .205440E-01 
0 .283520E-04 
-0 . 193386E-01 
0 .285795E-04 
-0 . 179120E-01 
0 .288282E-04 
-0 . 1 62675E-01 
0 .290747E-04 
-0 . 144127E-01 
0 . 293002E-04 
-0 . 123601E-01 
0 .294823E-04 
-0 . 101282E-01 
0.295997E-04 
-0 .774197E-02 
0.296178E-04 
-0 .523294E-02 
0 . 2 95351E-04 
-0 .263842E-02 
0 .293156E-04 
0 .OOOOOOE+OO 
0 . 290546E-04 
0.264661E-02 
0 . 287120E-04 
0.525963E-02 
0.280607E-04 
0 .776299E-02 
0 . 271925E-04 
0 . 100789E-01 
0 . 2 62235E-04 
0 . 121469E-01 
0 .252466E-04 
0 . 139329E-01 
0.243511E-04 
0 . 154293E-01 
0.235716E-04 
0 . 166493E-01 
0 . 229265E-04 
0 . 176186E-01 
0 . 224039E-04 
0 . 183678E-01 
0 .219962E-04 
0 . 189277E-01 
0.216876E-04 
0 . 193261E-01 


0 . 127 639E-01 
0 .293187E+03 
0 . 127 648E-01 - 
0 .293187E+03 
0 . 127702E-01 - 
0 .293187E+03 
0 . 127795E-01 - 
0 .293187E+03 
0.127888E-01 - 
0 . 293187E+03 
0 . 127959E-01 - 
0 . 293187E+03 
0 . 127901E-01 
0 . 293187E+03 
0 . 127732E-01 
0 .293187E+03 
0 . 127236E-01 
0 .293187E+03 
0 . 126465E-01 
0.293187E+03 
0 . 125320E-01 
0.293187E+03 
0 . 123596E-01 
0.293187E+03 
0.121726E-01 
0 . 2 93187E+03 
0 . 119242E-01 
0.293187E+03 
0 . 116731E-01 
0 .293187E+03 
0 .113492E-01 
0 .293187E+03 
0 . 110247E-01 
0 .293187E+03 
0 . 108731E-01 
0 .293187E+03 
0 . 108953E-01 
0 .293187E+03 
0 . 110241E-01 
0 .293187E+03 
0 . 111967E-01 
0 .293187E+03 
0 .113599E-01 
0 .293187E+03 
0 . 114852E-01 
0 .293187E+03 
0 . 115547E-01 
0 . 293187E+03 
0 . 115756E-01 
0 .293187E+03 
0 . 115641E-01 
0 .293187E+03 
0 . 115302E-01 
0 .293187E+03 
0 . 114834E-01 


cfy 

0 .000000E+00 
0 .711058E-04 
0 . 132842E-03 
0 . 159033E-03 
0 . 153318E-03 
0 .109954E-03 
0 .785117E-05 
0 . 167305E-03 
0 . 434733E-03 
0 .740577E-03 
0 .110869E-02 
0 . 157034E-02 
0 . 197870E-02 
0 .246218E-02 
0 .287860E-02 
0 .320311E-02 
0 .344518E-02 
0 . 377420E-02 
0 . 403497E-02 
0 . 42 1305E-02 
0 . 42 9182E-02 
0 . 424265E-02 
0 . 406942E-02 
0 .376950E-02 
0 .338650E-02 
0 .291033E-02 
0 .237901E-02 
0 . 182863E-02 
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1 

29 

0.188058E-03 
0 . 400000E-02 

1 

30 

0 . 186722E-03 
0 . 400000E-02 

1 

31 

0 . 185972E-03 
0 . 400000E-02 

2 

1 

0 . 185755E-03 
0 . 450000E-02 

2 

2 

0 .246466E-03 
0 .450000E-02 

2 

3 

0 .247153E-03 
0 . 450000E-02 

2 

4 

0 .247643E-03 
0 . 450000E-02 

2 

5 

0.248575E-03 
0 . 450000E-02 

2 

6 

0.249909E-03 
0 . 450000E-02 

2 

7 

0.251440E-03 
0 . 450000E-02 

2 

8 

0 .253310E-03 
0 . 450000E-02 

2 

9 

0.255260E-03 
0 . 450000E-02 

2 

10 

0 .257302E-03 
0 . 450000E-02 

2 

11 

0.259473E-03 
0 . 450000E-02 

2 

12 

0.260875E-03 
0 . 450000E-02 

2 

13 

0 . 262374E-03 
0.450000E-02 

2 

14 

0 . 263025E-03 
0 . 450000E-02 

2 

15 

0 .262736E-03 
0 . 450000E-02 

2 

16 

0 . 262188E-03 
0 . 450000E-02 

2 

17 

0 .261112E-03 
0 . 450000E-02 

2 

18 

0 .258284E-03 
0 . 450000E-02 

2 

19 

0.253510E-03 
0 . 450000E-02 

2 

20 

0 .248025E-03 
0 . 450000E-02 

2 

21 

0 .241278E-03 
0 . 450000E-02 

2 

22 

0.234996E-03 
0 . 450000E-02 

2 

23 

0.229704E-03 
0 . 450000E-02 

2 

24 

0 .224650E-03 
0 . 450000E-02 

2 

25 

0 . 220085E-03 
0 . 450000E-02 

2 

26 

0 .216267E-03 
0 . 450000E-02 

2 

27 

0.213338E-03 
0 . 450000E-02 


0 . 508233E-0 4 
0 . 4 1 633 IE-02 
0 . 50 4 638E-0 4 
0 .207367E-02 
0 .502617E-04 
0.620 6 67E-08 
0 . 502032E-04 
-0 .158292E-07 
0 . 672225E-04 
0 .258853E-02 
0 . 674008E-04 
0 .516194E-02 
0 . 675622E-04 
0 .770432E-02 
0 . 67 8 681E-0 4 
0 .101981E-01 
0 . 683129E-04 
0 .126233E-01 
0 . 688416E-04 
0 .149575E-01 
0 . 695013E-04 
0 . 1717 45E-01 
0 . 702413E-04 
0 . 192453E-01 
0 .710576E-04 
0 .211382E-01 
0 .719719E-04 
0 .228193E-01 
0 .726969E-04 
0 .242544E-01 
0 .734375E-04 
0 .254109E-01 
0 .739572E-04 
0 .262600E-01 
0 .741536E-04 
0.2 677 91E-0 1 
0 .742173E-04 
0 .269524E-01 
0 .740491E-04 
0 . 2 68 663E-01 
0 . 7 33 430E-0 4 
0 .264059E-01 
0 . 721114E-04 
0 .255010E-01 
0 .707116E-04 
0 . 241 656E-01 
0 . 689546E-04 
0 .224608E-01 
0 . 672 027E-0 4 
0 .204730E-01 
0 . 655810E-04 
0 . 182 931E-01 
0 . 641372E-0 4 
0 .160021E-01 
0 . 62 92 07E-0 4 
0.136626E-01 
0 . 619448E-04 
0 . 113174E-01 
0 . 612228E-04 
0 . 899269E-02 


0 .214579E-04 
0 . 195868E-01 
0 .213054E-04 
0 . 197295E-01 
0 .212196E-04 
0 . 1 977 17E-0 1 
0 .211948E-04 
-0 . 2 47 425E-0 1 
0 .282609E-04 
-0 .246283E-01 
0 . 2 83 4 68E-0 4 
-0 .242851E-01 
0 .284046E-04 
-0 .237115E-01 
0 .285154E-04 
-0 .229053E-01 
0 .286771E-04 
-0 .218643E-01 
0 .288627E-04 
-0 .205872E-01 
0 .290928E-04 
-0 . 190742E-01 
0 .293375E-04 
-0 . 17328 6E-01 
0 .295992E-04 
-0.153578E-01 
0 .298863E-04 
-0.131748E-01 
0.3008 4 1E-0 4 
-0 . 107 988E-01 
0 .302969E-04 
-0.825654E-02 
0 .304159E-04 
-0.55817 6E-02 
0 . 304244E-04 
— 0 .281461E — 02 
0 .304054E-04 
0 . 000000E+00 
0 . 3 03122E-0 4 
0 .282374E-02 
0 .300122E-04 
0 .561275E-02 
0 .295051E-04 
0.82857 6E-02 
0.28 9258E-0 4 
0 .107592E-01 
0 .282001E-04 
0 .129677E-01 
0 .274542E-04 
0 . 1487 45E-0 1 
0 .267385E-04 
0 . 1 6 47 12E-0 1 
0 .260953E-04 
0 . 17772 1E-0 1 
0 . 2 5538 5E-0 4 
0.18804 9E-0 1 
0 . 250 852E-0 4 
0 . 196023E-01 
0 .247413E-04 
0.201979E-01 


0 .293187E+03 
0 . 114 4 02E-0 1 
0 .293187E+03 
0 . 114082E-01 
0.293187E+03 
0 . 113937E-01 
0.293187E+03 
0 . 115377E-0 1 
0 .293140E+03 
0 . 1152 49E-01 
0 . 2 93140E+03 
0 . 115233E-01 
0 .293140E+03 
0.115153E-01 - 
0 .293141E+03 
0 . 114959E-01 - 
0 .293141E+03 
0.114684E-01 - 
0 . 293142E+03 
0 . 114117E-01 - 
0 .293143E+03 
0 . 113260E-01 - 
0 .293143E + 03 
0 . 111874E-01 - 
0 .293145E+03 
0 . 109915E-01 - 
0.29314 6E+03 
0.107 61 9E-01 
0 .293145E+03 
0.104638E-01 
0 . 2 931 45E+03 
0 . 101431E-01 
0 .293145E+03 
0 . 97 8616E-02 
0 .293144E+03 
0 . 942 431E-02 
0 . 293142E+03 
0 . 903874E-02 
0 .293140E+03 
0 . 868 607E-02 
0 .293138E+03 
0 .844846E-02 
0 .293134E+03 
0 . 8357 44E-02 
0.293129E+03 
0.837350E-02 
0 .293125E+03 
0 . 839884E-02 
0 .293120E+03 
0 . 840681E-02 
0 . 2 93115E+03 
0.837822E-02 
0 . 2 931 11E+03 
0 . 8317 14E-02 
0 .293107E+03 
0 . 82200 0E-02 
0 .293104E+03 
0 . 811062E-02 i 
0 . 293102E+03 
0.802429E-02 ' 


0 . 123 9 12E-02 
0 . 639749E-03 
0 . OOOOOOE+OO 
0 .OOOOOOE+OO 
0 .223210E-03 
0 .424816E-03 
0 . 58188 4E-03 
0 .727708E-03 
0.7864 8 8E-0 3 
0 .771543E-03 
0 .707375E-03 
0 . 45 4452E-0 3 
0 . 196654E-03 
0 .252666E-03 
0 . 7 95237E-03 
0 . 1 305 65E-02 
0 . 197000E-02 
0 .249677E-02 
0 .290953E-02 
0 .333422E-02 
0 . 383325E-02 
0 . 4 0 71 70E-02 
0 . 419826E-02 
0 . 418835E-02 
0 . 399867E-02 
0 .375362E-02 
0 .336072E-02 
0 . 2 9 677 2E-02 
. 2 4 93 9 6E-02 
. 2018 94E-02 
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0 .210802E-03 

0 . 605854E-04 

2 

28 

0 . 450000E-02 
0 .208983E-03 

0 . 670025E-02 
0 . 601366E-04 

2 

29 

0 . 450000E-02 
0 .207918E-03 

0 . 444202E-02 
0 .599088E-04 

2 

30 

0 . 450000E-02 
0 .207431E-03 

0 .221240E-02 
0 .597999E-04 

2 

31 

0 . 450000E-02 
0 .200398E-03 

0 . 662182E-08 
0 .582322E-04 

***** For brevity, the results for 

20 

1 

0 .390000E-01 
0 .348036E-03 

-0 . 475 658E-07 
0 . 98 9335E-0 4 

20 

2 

0 .390000E-01 
0 .347447E-03 

0.778 423E-02 
0 . 987619E-04 

20 

3 

0 .390000E-01 
0 . 347 127E-03 

0 .155578E-01 
0 . 9857 0 6E-0 4 

20 

4 

0 .390000E-01 
0 .346870E-03 

0 . 233056E-01 
0 . 983 93 9E-0 4 

20 

5 

0 .390000E-01 
0 .346332E-03 

0 . 310 04 OE-0 1 
0 . 98 1282E-04 

20 

6 

0 .390000E-01 
0 .345387E-03 

0 . 38 617 1E-0 1 
0 . 978211E-04 

20 

7 

0 .390000E-01 
0 .344007E-03 

0 .460921E-01 
0 . 97 5555E-0 4 

20 

8 

0 .390000E-01 
0 . 34 1547E-03 

0.533553E-01 
0 . 973436E-04 

20 

9 

0 .390000E-01 
0 . 339282E-03 

0 . 60 30 8 4E-0 1 
0 . 97 12 07E-0 4 

20 

10 

0 . 390000E-01 
0 . 339541E-03 

0 . 668283E-01 
0 . 97 15 03E-0 4 

20 

11 

0.390000E-01 
0 .339173E-03 

0 .727661E-01 
0 . 972 9 4 1E-0 4 

20 

12 

0.390 0 0 OE-0 1 
0 . 338 350E-03 

0 .779553E-01 
0 . 97 5331E-0 4 

20 

13 

0 . 390000E-01 
0 . 337 7 95E-03 

0 . 822223E-01 
0 . 97 9 613E-0 4 

20 

14 

0 . 390000E-01 
0 . 337 6 68E-03 

0 . 854039E-01 
0 . 98 4 6 94E-0 4 

20 

15 

0 . 390000E-01 
0 .340113E-03 

0.873683E-01 
0 . 993108E-04 

20 

16 

0 . 390000E-0 1 
0 .348206E-03 

0 . 880632E-01 
0 .101100E-03 

20 

17 

0 .390000E-01 
0 .347564E-03 

0.87 92 8 4E-0 1 
0 . 101018E-03 

20 

18 

0 .390000E-01 
0 .337321E-03 

0 . 868571E-01 
0 . 991544E-04 

20 

19 

0 . 390000E-01 
0 . 332856E-03 

0 . 843374E-01 
0 . 98 1 473E-0 4 

20 

20 

0 . 390000E-01 
0 . 335064E-03 

0 . 802721E-01 
0.9802 69E-04 

20 

21 

0 . 390000E-01 
0.33908 IE-03 

0 .748054E-01 
0 . 98 6 131E-0 4 

20 

22 

0 . 390000E-01 
0 .343268E-03 

0 . 682358E-0 1 
0 . 997929E-04 

20 

23 

0.390000E-01 
0 .351793E-03 

0 . 60 9184E-01 
0 . 101 4 12E-03 

20 

24 

0 .390000E-01 
0 .358810E-03 

0 . 531 8 55E-0 1 
0 . 10322 4E-03 


0 .244478E-04 
0.206212E-01 
0.242390E-04 
0.208980E-01 
0 .241186E-04 
0.210494E-01 
0.240619E-04 
0 .210942E-01 
0 . 233594E-04 


0 .293100E+03 
0.793836E-02 
0 .293099E+03 
0 . 785215E-02 
0.293098E+03 
0 . 77 9608E-02 
0.293097E+03 
0.796545E-02 
0.293096E+03 


0 . 153754E-02 
0 . 981609E-03 
0 . 468315E-03 
0 . OOOOOOE+OO 


i=3,4,..,19 are deleted. ***** 


-0 .743496E-01 
0 . 410106E-04 
-0 .740622E-01 
0 . 409350E-04 
-0 .731938E-01 
0 . 408478E-04 
-0 . 7 17272E-01 
0 . 407599E-04 
-0 . 696362E-01 
0 . 406343E-04 
-0.668870E-01 
0 . 404831E-04 
-0 . 634403E-01 
0 . 403397E-04 
-0 . 592571E-01 
0 .401925E-04 
-0 .543020E-01 
0 . 400332E-04 
-0.485536E-01 
0 .399618E-04 
-0 . 420116E-01 
0 .399053E-04 
-0 .347080E-01 
0 .398831E-04 
-0 .267157E-01 
0 .399518E-04 
-0 . 18 1532E-01 
0 . 400721E-04 
-0 . 918281E-02 
0 . 403840E-04 
0 . 000000E+00 
0 . 411843E-04 
0 . 924159E-02 
0 . 411158E-04 
0 . 184620E-01 
0 . 401932E-04 
0 .274028E-01 
0 . 397493E-04 
0 . 357394E-01 
0 . 397818E-04 
0 . 431888E-01 
0 . 401626E-04 
0 . 4957 62E-01 
0 . 408019E-04 
0.548512E-01 
0 . 416149E-04 
0 . 590685E-01 
0 . 424730E-04 


0.30117 8E-02 
0.292810E+03 
0 . 301940E-02 
0.292810E+03 
0 . 303434E-02 
0.292812E+03 
0 . 305432E-02 
0 .292816E+03 
0 . 308457E-02 
0 . 292820E+03 
0 . 312228E-02 
0 .292827E+03 
0 . 316423E-02 
0.292835E+03 
0 . 320640E-02 
0 .292844E+03 
0 . 325332E-02 
0.292853E+03 
0 . 329164E-02 
0 .292864E+03 
0 . 331888E-02 
0.292874E+03 
0 . 333737E-02 
0.292883E+03 
0 . 334029E-02 
0 .292890E+03 
0 . 332901E-02 
0 .292894E+03 
0 .329891E-02 
0 . 292896E+03 
0 .323643E-02 
0 .292896E+03 
0 . 320588E-02 
0 .292894E+03 
0 .319930E-02 
0 .292890E+03 
0 .317840E-02 
0 .292883E+03 
0 .314286E-02 
0 .292871E+03 
0 . 309814E-02 
0.292856E+03 
0.303858E-02 
0.292840E+03 
0.296574E-02 
0 .292825E+03 
0 . 288423E-02 
0 .292811E+03 


0 .OOOOOOE+OO 
-0 . 107584E-03 
-0 .213710E-03 
-0 .313855E-03 
-0 . 411398E-03 
-0 . 497832E-03 
-0 . 568826E-03 
-0 . 625028E-03 
-0 . 653002E-03 
-0 . 647021E-03 
-0 .595260E-03 
-0 . 490430E-03 
-0 .348348E-03 
-0 . 161793E-03 
0 .278752E-04 
0 . 185674E-03 
0 .282908E-03 
0 . 482515E-03 
0 . 708460E-03 
0 . 920828E-03 
0 . 105152E-02 
0 . 110442E-02 
0 . 107767E-02 
0 . 100140E-02 
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20 

25 

0 .390000E-01 

0 . 452934E-01 



0.366186E-03 

0 . 105112E-03 

20 

26 

0 . 390000E-01 

0.374166E-01 



0 . 372317E-03 

0 . 106840E-03 

20 

27 

0 . 390000E-01 

0 .296542E-01 



0 . 377578E-03 

0 . 108157E-03 

20 

28 

0 . 390000E-01 

0 . 220461E-01 



0 . 380 992E-03 

0 .109387E-03 

20 

29 

0 . 390000E-01 

0 . 145915E-01 



0 .382594E-03 

0 . 110258E-03 

20 

30 

0 . 390000E-01 

0 .726007E-02 



0 . 386313E-03 

0 . 111069E-03 

20 

31 

0 . 390000E-01 

0 .217225E-07 


0.379519E-03 0.109577E-03 


0 . 623409E-01 
0 . 433254E-04 
0 . 648073E-01 
0 . 441048E-04 
0 . 666043E-01 
0.4467 66E-04 
0 . 678509E-01 
0 . 452110E-04 
0 . 686478E-01 
0 .455696E-04 
0 . 690744E-01 
0.459390E-04 
0 . 691985E-01 
0 . 451870E-04 


0.279986E-02 
0 . 2 92800E+03 
0 . 272538E-02 
0 .292792E+03 
0 .266278E-02 
0.292785E+03 
0 . 2 60 939E-02 
0.292782E+03 
0 . 256923E-02 
0 .292780E+03 
0.254170E-02 
0 .292777E+03 
0 . 255738E-02 
0 . 292781E+03 


0 . 878781E-03 
0 .743972E-03 
0 . 600378E-03 
0 . 452672E-03 
0 .302266E-03 
0 . 151098E-03 
0 . 000000E+00 
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1.8 FORTRAN Listing of 3DBLC 


c 

c comblck 

c 

parameter (imaxf=100, jmaxf=51, kmaxf =5 1 ) 

common /pi /pi 
common/writ/ iw, ini, jni 
common /ks/mks 
common/ term/ kterm, jmaxt 
common/ jm/ jmaxl 
common/ sep/ksep 
common/ stagso/ksymstg 
common /pte / kcpgi vn 
common /point /kpoint 

common /bevel /ue ( imaxf , jmaxf ) , ve ( imaxf , jmaxf ) 
common/nonorth/costh (imaxf, jmaxf) 
common/ rw/ roww ( imaxf , jmaxf) 
c ommon /body/ kbody 
common/end/iend 

common/ compr/ rminf , vinf, gamma, rr, tinf , ss, pinf , cp, pr 
common/ st ag/xps , zps 
common/ com/inc 
common/comprl/kaw, krow 

common/ compr2 /acorn ( kmaxf ) , bcom (kmaxf) , ccom (kmaxf) ,dcom( kmaxf) 

common / compr3 / rmyued ( imaxf , jmaxf ) , roed ( imaxf , jmaxf ) 

common /compr 4 / rmyueh ( jmaxf) , roeh ( jmaxf) 

common /compr 5/ roerob ( jmaxf , kmaxf) , beb ( jmaxf , kmaxf) 

common /compr 6/ roero ( jmaxf , kmaxf) , be ( jmaxf , kmaxf) , td ( jmaxf, kmaxf ) 

common /compr 7 / pe ( imaxf , jmaxf) , te ( imaxf , jmaxf ) , twall ( imaxf , jmaxf ) 

common/ star/ as tar , bstar , cstar, thetar 

common/ zetard/ zetae, dzetas, zeta (kmaxf) , dzeta (kmaxf) 

common /ygrd/yd ( jmaxf ) , dy ( jmaxf) 

common/ xx/xd ( imaxf ) 

common/ dxx/ dx, dxh 

common/nuro/ rmyuinf , rnuinf , roinf 
common/ss/sl (imaxf, jmaxf) , slh (imaxf, jmaxf) 

common /mm/ ml ( jmaxf ) , m2 ( jmaxf) , m3 ( jmaxf ) , m4 ( jmaxf) , m5 ( jmaxf) , 

& m6 (jmaxf ) ,m7 (jmaxf) ,m8 (jmaxf) ,m9 (jmaxf ) ,mlO (jmaxf) , 

& mil ( jmaxf) ,ml2 ( jmaxf) , ml 3 ( jmaxf) 
common/ ukmaxml / ukmaxl 

common/ st r /xpd ( imaxf , jmaxf ) , ypd ( imaxf , jmaxf) , zpd ( imaxf , jmaxf ) , 

& cavd ( imaxf, jmaxf) , hi ( imaxf , jmaxf) , h2 ( imaxf , jmaxf) 

&,duedsd (imaxf, jmaxf) , duedyd ( imaxf , jmaxf) , cpd (imaxf, jmaxf) 
common/ i jk/i, j, k, imax, jmax, kmax 
common/hh/h (3, jmaxf , kmaxf) , hs (3, jmaxf, kmaxf) 
common/hhb/hb ( 3 , jmaxf , kmaxf ) , hsb (3, jmaxf, kmaxf) 
common/hhn/hn (2 , jmaxf, kmaxf) , hsn (2, jmaxf, kmaxf) 
common/compr4/hsp (2, jmaxf, kmaxf) 

common/ abed/ ai ( 4 , kmaxf ) , bi ( 4 , kmaxf ) , ci ( 4 , kmaxf ) , as ( 4 , kmaxf ) , 

& e (4, kmaxf ) ,es (4, kmaxf ) ,ds (4, kmaxf ) , di (2, kmaxf ) 

common/ syt / save ( 4 , kmaxf ) , bl ( jmaxf , kmaxf ) , b2 ( jmaxf , kmaxf ) , 

& b3 ( jmaxf , kmaxf ) , b4 ( jmaxf , kmaxf ) 

common/ savel/ saveh (kmaxf) , savehs (kmaxf) 
common /bl/cfx (imaxf, jmaxf) , cfy (imaxf, jmaxf) , blth (imaxf, jmaxf) 

& , dspth (imaxf, jmaxf) , thmom( imaxf, jmaxf) , vmax (imaxf, jmaxf) 

& , xki ( imaxf, jmaxf ) , qw ( imaxf , jmaxf) , zact ( jmaxf, kmaxf) 
real ml , m2 , m3 , m4 , m5 , m6 , m7 , m8 , m9 , mlO , mil , ml 2 , ml 3 
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c #################################################################### 
program blmain 

C #################################################################### 

include 'comblck' 
dimension kmaxj(jmaxf) 

pi=acos (-1 . ) 

call input 

if (imax .gt . imaxf ) write ( 6, *) ' imax is greater than imaxf, 

Schange imaxf greater or equal to imax' 

if ( jmax . gt . jmaxf ) write ( 6, * ) ' jmax is greater than jmaxf, 

Schange jmaxf greater or equal to jmax' 

if (kmax . gt . kmaxf) write ( 6, *) ' kmax is greater than kmaxf, 

&change kmaxf greater or equal to kmax' 

if (imax . gt . imaxf . or . jmax . gt . jmaxf . or . kmax . gt . kmaxf) stop 

if (ksymstg . eq. 1 ) cstar=l . 

c other free-stream conditions are calculated 

cp=gamma*rr/ (gamma-1.) 

if (mks .eq. 1) rmyuinf=47 .88*(2.28d-8*(l. 8*tinf ) **1.5) 

&/ (1 . 8*tinf +198 . 6) 

if (mks .eq. 0) rmyuinf= (2 . 28d-8* (tinf ) **1.5) / (t inf +198 . 6) 

roinf-pinf/ (rr*tinf) 
rnuinf =rmyuinf / roinf 
ss=sqrt (gamma*rr*tinf ) 
vinf =rminf *ss 

rewind 1 
rewind iw 

do 351 i=l,imax 
do 351 j=l/ jmax 

cavd (i, j) =sqrt (ue (i, j ) **2+ve (i, j ) **2+2 . *ue (i, j ) *ve (i, j ) 

&*costh (i f j ) ) 

slh (i, j ) =0 . 5* (si <i, j)+sl (i-1, j) ) 
continue 

dimensionalize velocity components 

astar=astar *vinf 
bstar=bs tar* vinf 

do 29 i=l / imax 
do 29 j=l , jmax 
cavd (i r j ) =cavd (i f j ) *vinf 
ue (i, j ) =ue {i, j ) *vinf 
ve (i f j ) =ve (i r j ) *vinf 
continue 

other boundary-layer edge conditions are calculated 


351 

c 


29 

c 
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do 99 i=l,imax 
do 99 j=l,jmax 

te (i, j ) =tinf * <1 . +0 . 5* ( gamma -1 . ) *rminf **2* ( 1 . - (cavd ( i, j ) 

&/vinf) **2) ) 

if (kcpgivn . eq. 1) pe (i, j) =pinf+0 . 5*cpd(i, j) *roinf *vinf * *2 

if ( kcpgivn . eq . 0 ) pe (i, j ) =pinf * ( te ( i, j) /tinf) ** (gamma / ( gamma -1 . ) ) 

2 52 if (mks .eq. 1) rmyued (i, j ) = 47 . 8 8 * (2 . 2 8d-8* (1 . 8*te (i, j) ) **1.5) 

& / (1 . 8*te (i, j) +198 . 6) 

if (mks .eq.O) rmyued (i, j) = (2 .28d-8* (te (i f j ) ) **1 • 5) / (te (i, j ) +198 . 6) 
roed(i / j)=pe(i r j) / (rr*te (i f j) ) 

99 continue 

c dy ( j ) is calculated 

do 4 j=l , jmax- 1 
dy ( j)=yd( j+1) -yd( j) 

4 continue 


i=l 

if (kpoint . eq . 1 ) go to 45 

call stagpt 

if (ksymstg.eq. 1) then 

call insym 

go to 1119 

endif 

if (kbody . eq. 1) call inbub 
if (kbody .eq. 0) call inbus 
go to 1119 

45 call coefcon 

j=i 

call conon 
do 400 k=l,kmax 
saveh (k) =h (2 f l,k) 
savehs (k)=hs(2 r l f k) 

400 continue 

do 500 k=l,kmax 
h (2, 1, k) =0 . 
hs ( 2 , l f k) =0 . 

500 continue 

kmax j ( 1 ) =kmax 

do 1156 j=2 , jmax-1 

call conoff 

kmax j ( j ) =kmax 

if (iend.eq. 1) then 

kterm=l 

jmaxt= j -1 

do 410 k=l r kmax 

h (2 f l r k) =saveh (k) 

hs (2 , 1, k) =savehs (k) 

410 continue 

go to 1118 
endif 

1156 continue 


j = jmax 
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call conon 

kmax j ( j ) =kmax 

if ( iend . eq. 1 ) then 

kterm=l 

jmaxt= j-1 

do 42 0 k=l , kmax 

h (2, 1 , k) =saveh (k) 

hs (2 , 1, k) =savehs (k) 

420 continue 
endif 

1118 do 520 j-1, jmaxt 

do 520 k=kmax j ( j ) , kmax 
h ( 1/ j , k) =1 . 0 
h (2, j, k) =h (2, j , kmax j ( j) ) 

hs ( 1 , j , k) -hs (1, j,k-l) + (h(l, j,k)+h(l, j,k-l) ) *dzeta(k-l) /2 . 
hs (2 , j / k) =hs (2,j,k-l) + (h(2, j,k)+h(2,j,k-l) ) *dzeta (k-1) / 2. 
h (3, j , k) =1 . 0 
roero ( j , k) =1 . 0 
be ( j , k) =1 . 0 
520 continue 

do 422 k=l,kmaxj(j) 
h (2 , 1 , k) =saveh ( k ) 
hs (2 , 1 , k) =savehs (k) 

422 continue 

do 423 k=kmax j ( j ) +1 , kmax 
h (2 , 1 , k) -saveh (kmax j ( j ) ) 

hs{2, j,k)=hs (2,j,k-l) + (h(2, j,k) -fh <2 , j , k-1) ) *dzeta (k-1) /2 . 

423 continue 

1119 if (kpoint . eq. 1 . and . kbody . eq . 0 ) then 
call inpos 

do 123 j=l , jmax 

ue (1, j) =sqrt (ue (1, j) **2+ve (1, j) **2) 
ve (1, j) =0 . 

123 continue 
endif 

do 2255 j=l, jmax 
do 2256 k=l,kmax 
hsp (1, j, k) =hs (1, j, k) 

2256 continue 
2255 continue 


do 270 j=l , jmax 
call blpara 
270 continue 


q********************************************************************** 

c to march away from i=l 

c ********************************************************************** 

if (kterm. eq . 1) jmaxl- jmaxt 
if (kterm. eq . 0 ) jmaxl= jmax 

1500 do 1000 i=2,imax 
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611 


dx=xd ( i ) -xd ( i - 1 ) 
dxh=dx/2 . 
x=xd (i) 

write (6,611)i,x,dx 

format('*** i=',i4,5x,' x=',fl0.6,' dx=',fl0.6) 



if (kbody . eq. 1 ) call 

coef body 


if (kbody .eq. 0) call 

coef strm 

7000 

do 60 j=l, jmaxl 



call predict 


60 

continue 



do 70 j-1, jmaxl 



call correct 


70 

continue 



c to increase zetae so that u (kmax-1) is greater than ukmaxl (given) 
c 

c ( check point is only on the leeward line of symmetry ) 
c 

c 


write { 6, *) ' jmaxl=' , jmaxl, ' hn (1, jmaxl, kmax-1) = ' , hn (1, jmaxl, kmax-1) 

if (hn ( 1, jmaxl , kmax-1 ). gt . ukmaxl) go to 7100 

kmax=kmax+l 

write (6,*)' kmax=',kmax 
if (kmax . eq . kmaxf ) then 

write {6,*)' kmax was increased to kmaxf' 

go to 2100 

endif 

do 7300 ij=l, jmaxl 
h (1, i j, kmax) =1 . 
h (2 , i j , kmax) =0 . 

if (kbody .eq. 1) h (2, i j, kmax) =ve (i-1, i j ) /vinf 

if (kbody .eq. 1 .and. i j .eq. 1) h (2, i j, kmax) =ve (i-1, ij+1) / (vinf *dy (i j) ) 
if (kbody .eq. 1 .and. i j .eq. jmax) h (2, i j, kmax) =-ve (i-1, i j-1) 

&/ (vinf *dy (i j-1) ) 
h ( 3 , i j , kmax) =1 . 

hs (1, i j, kmax) =hs (1, i j, kmax-1) + (h (1, i j,kmax) +h (1, i j, kmax-1) ) 

& *dzeta (kmax-1 ) /2 . 

hs (2 , i j , kmax) =hs (2 , i j , kmax-1 ) + (h (2 , i j , kmax) +h (2 , i j , kmax-1) ) 

& *dzeta (kmax-1) /2 . 

hsp (1, i j, kmax) ^hs (1, i j , kmax) 
hsp (2, i j , kmax) -hs (2 , i j , kmax) 
be ( i j , kmax) =1 . 
roero (i j , kmax) =1 . 
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7300 continue 

go to 7000 

check whether the zone of dependence principle is satisfied 


7100 do* 370 j = l, jmaxl 

if ( j . le . 2 . or . j . ge . jmax-1 ) go to 370 

vuwall=abs (vinf* ( (dzeta (1) tdzeta (2) ) **2*hn (2, j, 2) 

& -dzeta (1) * *2 *hn (2 , j, 3) ) ) / (ue (i, j ) * { (dzeta (1) +dzeta (2) ) **2 

&*hn(l, j,2) -dzeta (1) **2*hn (1, j, 3) > ) 

vuedge=abs ( ve (i, j ) /ue (i, j ) ) 
if (vuwall . It . vuedge) vuwall=vuedge 

if (h (2 , j, 2) .It .0) then 

ch=h2 (i-1, j) *dy ( j) / (si (i, j) -si <i-l, j) ) 

if (vuwall . gt . ch) write ( 6, * ) ' zone of dependence violated at i=' , i 
& j—'rjr' vuwall=' f vuwall , 9 ch=',ch 
endif 

if (h (2, j, 2) .ge. 0) then 

ch=h2 (i-l r j) *dy ( j-1) / (si <i, j) -si (i-1, j) ) 

if (vuwall . gt . ch) write ( 6 , * ) r zone of dependence violated at i=' / i 
& , ' j= f r j f r vuwall =/ f vuwall r f ch= r ,ch 
endif 

370 continue 

do 376 j=l , jmaxl 
do 5500 k-l,kmax 
do 5550 m=l , 2 
h (m, j r k) =hn (m f j, k) 
hs (m, j , k) =hsn (m, j , k) 

5550 continue 
5500 continue 
376 continue 

371 if (inc . eq. 1 ) then 
do 385 j-1, jmax 
do 385 k=l,kmax 
h ( 3 , j , k) =1 . 0 
roero ( j , k) =1 . 0 
be ( j, k) =1 . 0 

385 continue 
go to 575 
endif 

do 470 j-1, jmaxl 
call correng 
470 continue 
575 do 570 j=l, jmaxl 
call blpara 
570 continue 

call profile 
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c 

c stop computation if as follows 
c 

c 


if ( ( (dzeta (1) +dzeta (2) ) **2*h (1, jmaxl,2) -dzeta (1) **2*h (1, jmaxl, 3) ) 
& . It. 0) then 

write (6,*)' dudy is l.t. 0 at j = jmaxl ' 

go to 2100 

endif 


c 

c to find the first separation point 

c 

do 800 j-1, jmaxl 

if ( ( (dzeta (1) +dzeta (2) ) **2*h (1 , j, 2) -dzeta (1) **2*h ( 1, j , 3 ) ) . It . 0) 
&then 

write{6,*)' dudzeta wall is .It. 0 at i,j=',i,j 
ksep=l 
go to 2100 
c 

c if one wants to continue the calculations using the modified 

c procedure, use the following statement instead of ' go to 2100' 

c kterm=l 

c jmaxl= j- 1 

endif 

800 continue 

write ( 6 , * ) ' xpd(i, jmax) =' ,xpd(i, jmax) 

do 9995 k=l,kmax 
do 9995 j=l, jmaxl 
hsp (1, j, k) =hs (1, j, k) 
hsp ( 2 , j, k) =hs ( 2 , j, k) 

9995 continue 

1000 continue 




* ★ 


2100 call output 

stop 

end 
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C####################################################################### 

subroutine blpara 

include 'comblck' 
bltk=0 .995 

f 2dotw= ( (dzeta (1) tdzeta (2) ) **2*h (1, j , 2) -dzeta (1) **2*h { 1, j , 3) ) 

&/ (dzeta (1) * (dzeta (1) +dzeta (2) ) **2- (dzeta ( 1 ) tdzeta (2) ) *dzeta (1) **2) 
g2dotw= ( (dzeta (1) tdzeta (2 ) ) **2 *h (2, j , 2 ) -dzeta (1) * *2*h (2 , j , 3 ) ) 

&/ (dzeta (1) * (dzeta (1) tdzeta (2) ) **2- (dzeta ( 1 ) tdzeta (2) ) *dzeta (1) **2) 
if ( j . eq . 1 . or . j . eq . jmax) g2dotw=0 
if (kaw. eq. l)twall(i, j) =td ( j , 1) 

if (mks . eq . 1 ) rmyuw=47 ,88*(2.28d-8* ( 1 . 8 *td ( j , 1) ) **1.5) 

& / (1.8*td( j,l) +198.6) 

if (mks . eq . 0 ) rmyuw= (2 .28d-8* (td ( j , 1) ) **1.5) / { td ( j , 1) t 1 98 . 6) 
cfx ( i r j ) =2 . *rmyuw*ue (i, j ) *sqrt (ue ( i f j ) *roed (i, j ) 

& / (rmyued (i,j)*sl(i,j))) *f 2dotw/ (roed ( i, j ) *roero ( j , 1 ) *cavd (i, j ) * *2 ) 
cfy (i, j ) =2 . *rmyuw*vinf *sqrt (ue ( i, j ) *roed (i, j ) / (rmyued (i, j ) 

& *sl ( i, j ) ) ) *g2dotw/ ( roed ( i, j ) *roero ( j , 1) *cavd ( i , j ) **2 ) 
c a=l . 

c cfx (i, j ) =2 . *rnuinf *sqrt (ue (i, j) / (rnuinf *sl (i f j ) ) ) *f2dotw 

c &*cavd(i f j) *sqrt (vinf *a/rnuinf ) /vinf**2 

c cfy ( i r j ) =2 . * rnuinf *sqrt (ue (i, j ) / ( rnuinf *sl ( i, j ) ) ) *g2dotw 

c & *sqrt (vinf *a/ rnuinf ) /vinf 

do 2650 k=l,kmax 

check=sqrt (ue(i, j) **2*h(l f j , k ) **2tvinf**2*h(2 f j , k) 

&**2t2 . *ue (i, j) *vinf *h ( 1 , j f k) *h <2, j , k) *costh (i, j) ) /cavd(i, j) 
if ( j .eq. 1 . or . j .eq. jmax) check=h ( 1 f j, k) 
if (check . ge .bltk) then 

checkl=sqrt (ue (i, j) **2*h (1, j , k-1 ) **2tvinf **2 
&*h (2, j, k-1) **2t2 . *ue (i f j) *vinf*h (l f j f k-1) *h (2, j, k-1) *costh <i, j) ) 

& /cavd ( i f j ) 

if(j.eq.l.or.j. eq . jmax) check l=h ( 1 , j , k-1) 
kmm=k 

go to 2655 
endif 

2650 continue 
2655 zact ( j , 1 ) =0 

do 2660 k=l,kmax-l 

zact ( j , ktl) =zact ( j f k) tO . 5* (roero ( j , k) 

&troero ( j , ktl) ) *sqrt (rmyued (i,j)*sl(i,j)/ (roed (i,j)*ue(i,j))) 

& *dzeta (k) 

2660 continue 

blth (i f j ) =zact ( j , kmm-1 ) t ( zact { j , kmm) -zact ( j , kmm-1 ) ) 

& * (bltk-checkl) / (check-checkl ) 

sinth=sqrt (1 . -costh (i r j) **2) 

vedge^sqrt (ue (i, j ) **2tve (i f j) **2t2.*ue(i, j) *ve(i f j) * costh ( i , j ) ) 
gammae=asin (ve (i, j ) *sinth/ vedge) 
vmax ( i , j ) =0 . 
do 2120 k=2 , kmax-1 

vins=sqrt ( (ue(i f j) *h(l, j,k) ) **2t(vinf*h(2, j^k) ) **2t2.*ue(i, j) 
&*h(l, j r k) *vinf*h(2, j,k) * costh (i f j) ) 

gamma i=as in (vinf *h {2, j, k) *sinth/vins) 


51 



if { vmax (i, j ) . It . abs (vins*sin (gammai-gammae) ) ) vmax (i, j ) =abs (vins 
& * s i n ( gamma i -gammae ) ) 

2120 continue 

if ( j . eq. 1 . or . j . eq . jmax) vmax (i, j) = 0 . 

vk=sqrt ( (ue (i, j) *h <1, j, 2) ) **2+ (vinf*h(2, j,2) ) **2+2 . *ue (i, j) 

&*h (1, j, 2) *vinf *h ( 2 , j, 2) *costh (i, j) ) 

if ( j .eq. 1 . or . j .eq. jmax) vk=ue (i,j)*h(l,j,2) 

dspth (i, j ) =0 . 5* (2 . -vk/ (cavd (i, j ) *roero ( j , 2) ) ) *zact ( j, 2) 

thmom (i, j ) =0 . 5* (vk/ (cavd (i f j ) *roero ( j , 2) ) ) 

&* (1 . -vk/cavd(i, j) ) *zact ( j, 2) 
do 2680 k=2,kmax-l 

vk=sqrt ( (ue (i, j ) *h ( 1, j , k) ) **2+ (vinf *h (2, j, k) ) **2+2 . *ue (i, j ) 

&*h ( 1, j, k) *vinf *h (2, j , k) *costh (i, j) ) 

if ( j .eq. 1 . or . j .eq. jmax) vk=ue (i,j)*h(l,j,k) 

vkpl=sqrt ( (ue ( i, j ) *h ( 1 , j , k+1 ) ) **2+ (vinf *h (2 , j , k+1) ) **2+2 . 

&*ue (i f j) *h(l, j , k+1 ) *vinf *h (2 , j,k+l) *costh(i f j) ) 
if ( j . eq . 1 . or . j . eq. jmax) vkpl=ue ( i, j ) *h ( 1, j , k+1 ) 
dspth (i r j ) =dspth (i / j)+0.5*(2. ~vk/ (cavd (i f j ) 

& *roero ( j, k) ) -vkpl/ (cavd (i, j ) *roero ( j , k+1) ) ) * ( zact ( j, k+1) 

&-zact ( j r k) ) 

thmom ( i, j ) =thmom (i f j ) +0 . 5* ( (vk/ (cavd { i, j ) 

&*roero ( j, k) ) ) * (1 . -vk/ cavd (i, j ) ) + (vkpl/ (cavd (i, j ) *roero ( j, k+1) ) ) 

& * ( 1 . -vkpl /cavd (i, j)))*(zact<j,k + l) -zact ( j , k) ) 

xki ( i f j ) =roed (i, j ) *vmax (i f j ) *blth (i, j ) /rmyued (i f j ) 
dtdzetw= ( (dzeta(l) **2-(dzeta(l) +dzeta (2 ) ) **2 ) *td ( j , 1 ) 

&+ (dzeta (1) +dzeta (2) ) **2*td( j, 2) -dzeta (1) **2*td( j, 3) ) 

&/ (dzeta (1) * (dzeta (1) +dzeta (2) ) **2- (dzeta (1) +dzeta (2) ) *dzeta (1) **2) 
qw ( i r j ) =cp*rmyuw*dtdzetw*sqrt (roed (i, j ) *ue (i, j) /rmyued (L, j ) ) 

Sc/ (pr * roero ( j, 1) ) 

2680 continue 
return 
end 
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c##### ############################################################### 


subroutine coefbody 

c# ################################################################### 

include 'comblck' 

do 50 j = l , jmax 
teh=0 .5* (te (i-1, j) +te (i, j) ) 
peh=0 . 5* (pe (i-1, j) +pe (i f j) ) 
if (mks . eq. 1) rmyueh { j ) =47 . 88* (2.28d-8*(1.8*teh) **1.5) 

& / (1.8*teh+198.6) 

if (mks . eq . 0 ) rmyueh ( j ) = (2 . 2 8d-8 * ( teh) **1.5)/ (teh+1 98 . 6 ) 
roeh(j)=peh/ (rr*teh) 

50 continue 

do 100 j=l, jmax 

dueds= (ue (i, j) -ue (i-l,j) ) / (si (i, j) -si (i-1, j) ) 
duedsd ( i , j ) =dueds 

dh2ds= (h2 (i, j) -h2 (i-1, j) > / (si (i, j) -si (i-1, j) ) 
ups=(ue (i, j) +ue (i-1, j) ) /2 . 
vps=(ve (i, j) +ve (i-1, j) ) /2 . 
hlps=hl (i, j) 

h2ps= (h2 (i-1, j) +h2 (i, j) ) /2 . 

c if (i.ge. 166) write (1, *) ' i=',i,' j=',j,' ups=',ups,' vps= / ,vps 

c &, 'hips-', hips,' h2ps= f , h2ps, ' h2 (i, j ) «' , h2 (i, j ) , ' h2 (i-1, j ) =' , h2 ( 
c &i-l, j ) , ' si (i, j)=' , si (i, j) , ' si (i-1, j) = ' , si (i-1, j) , ' ue(i,j)=' 

c & , ue (i, j ) , ' ue(i-l,j)=',ue(i-l,j) 

c &, ' dueds=' , dueds, ' dh2ds=' ,dh2ds, 'cavd= r , cavd(i, j) , ' cos=' 

c & , costh ( i, j ) 

if ( j .eq. 1 . or . j .eq. jmax) go to 10 
dhldy= ( (dy(j-l) /dy ( j ) ) *(hl(i, j + 1) -hi (i, j ) ) + (dy ( j ) / dy ( j-1) ) 

&* (hi (i, j) -hi (i, j-1) ) ) / (dy ( j) +dy ( j-1) ) 

dh2dy= ( (dy (j-1) /dy ( j ) ) * (h2 (i, j+1) -h2 (i, j ) ) + (dy ( j ) / dy ( j-1) ) 

&* (h2 (i, j) -h2 (i, j-1) ) ) / (dy ( j ) +dy ( j-1) ) 

dcosd s= (costh (i, j) -costh (i-1, j) ) / (si (i, j ) -si (i-1, j) ) 
dcosdy= ( (dy (j-1) / dy (j) ) * (costh (i, j + 1) -costh(i, j) ) + (dy ( j ) / dy ( j -1 ) ) 
&* (costh (i, j ) -costh (i, j-l)))/(dy(j) +dy ( j-1) ) 
sinth=sqrt (1-costh (i, j) **2) 
cotth=costh ( i, j ) / sinth 

ck2= (hi (i, j+1) *costh (i, j+1) -hi (i, j-1) *costh (i, j-1) ) 

&/ ( (dy ( j) +dy ( j-1) ) *hlps*h2ps*sinth) -dh2ds/ (h2ps*sinth) 

ckl= (h2 (i, j) *costh (i, j) -h2 (i-1, j) *costh (i-1, j) ) / (h2ps*sinth 
&* (si (i, j) -si (i-1, j) ) ) -dhldy/ (hlps*h2ps*sinth) 

ckl2= : ( -ckl+dcosds/sinth+costh (i, j ) * (ck2-dcosdy/ (h2ps*sinth) ) ) 

& /sinth 

ck21= { (1 . +costh ( i, j ) * *2 ) *dh2ds-2 . * costh (i, j) *dhldy/hlps) 

&/ (h2ps*sinth* *2 ) 

sinthl=sqrt ( 1 . -costh (i-1, j ) **2) 

ml ( j ) =0 . 5* (1 . +slh (i, j) *dueds/ups) +slh(i,j)*(h2(i,j) * sinth 
Sc *sqrt (roed (i, j) *rmyued(i, j) ) -h2 (i-1, j) *sinthl*sqrt (roed(i-l, j) 

Sc *rmyued(i-l, j) ) ) / (dx*hlps*h2ps*sinth*sqrt (roeh ( j) *rmyueh ( j) ) ) 

m2 ( j ) =slh (i, j ) *dueds/ups-slh ( i, j ) *ckl*cotth 
m3 ( j ) =-slh (i, j ) *cotth*ck2*vinf /ups 
m4 ( j ) =slh (i, j ) *ck21 

duedyd (i, j ) = ( (dy (j-1) /dy (j))*(ue(i,j+l) -ue (i, j) )+(dy(j) /dy(j-l) ) 
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&* (ue (i, j) -ue (i / j-l)))/(dy(j) +dy ( j-1) ) 

m5 ( j) =slh (i, j) *vinf *duedyd (i, j) / (h2ps*ups**2) 

&+ckl2*slh (i, j) *vinf/ups 

sinpl=sqrt (1 . -costh <i, j + 1) **2) 
sinml=sqrt (i . -costh (i, j-1) **2) 
dpl=sqrt (roeh { j + 1 ) *rmyueh ( j + 1 ) *ue (i, j+1) 

& *slh (i, j+1) ) *hl (i, j+1) *sinpl*vinf /ue (i, j+1) 
dpO=sqrt ( roeh ( j ) *rmyueh ( j ) *ue (i, j ) 

& *slh (i, j ) ) *hl (i, j ) *sinth*vinf /ue (i, j) 
dml=sqrt (roeh (j-1) *rmyueh (j-l)*ue(i,j-l) 

& *slh (i, j-1) ) *hl (i, j-1) *sinml *vinf /ue (i, j-1) 

drmdy= ( (dy ( j-1) /dy ( j ) ) * (dpl-dpO) + (dy ( j) /dy (j-1) ) 

&* (dpO-dml ) ) / (dy ( j) +dy (j-1) ) 

m6 ( j ) =drmdy*slh (i, j) / (hlps*h2ps*sinth 
& *sqrt (roeh ( j ) *rmyueh ( j ) *ups*slh (i, j) ) ) 
m7 ( j ) =slh (i, j ) *vinf / (h2ps*ups) 
m8(j)=slh(i,j) *ck2*vinf **2/ (ups**2*sinth) 
m9 ( j ) =slh (i, j ) *ckl*ups/ ( vinf *sinth) 
mlO ( j) “slh (i, j) /hips 

mil ( j) =slh (i, j) *dueds/ups+slh (i, j) *vps*duedyd (i, j) 

& / (h2ps*ups**2) 

&-slh(i,j) *cotth*ckl+slh ( i, j ) *ck2*vps**2/ <ups**2*sinth) 
&+slh(i,j) *ckl2*vps/ups 

dveds= (ve (i, j) -ve (i-1, j ) ) / (si (i, j) -si (i-1, j) ) 

dvedy= ( (dy (j-1) /dy < j) ) * (ve (i, j + 1) -ve <i, j) ) + (dy ( j) /dy ( j-1) ) 

&* (ve (i, j) -ve (i, j-1) ) ) / (dy ( j ) +dy ( j-1) ) 

ml2 ( j ) -slh ( i, j ) *dveds/vinf +slh (i, j ) *vps*dvedy/ (ups 
& *vinf *h2ps ) +slh ( i, j ) * {-cotth*ck2*vps**2+ckl*ups**2/ sinth 
&+ck21*ups*vps) / (ups*vinf ) 

ml 3 ( j) =roww (i, j) *sqrt (roed(i, j) *ue (i, j) *sl (i, j) /rmyued(i, j) ) 
&/ (roed(i, j) *ue (i, j) ) 

c if (i . ge . 166) write ( 1, 117) i, j , ml ( j ) , m2 ( j ) , m3 ( j ) , m4 ( j ) , m5 ( j ) 

c &,m6 ( j) , m7 ( j) , m8 ( j) ,m9 ( j) , mlG ( j) , mil ( j) ,ml2 ( j) 

117 format <//,2x, ' i=',i3,' j=',i2,' ml=' , d9 . 3, 5x, ' m2 = ',d9.3,5x 
m3 = ' , d9 . 3, 5x, ' m4=',dll.5, 

&/, 5x, ' m5=' , d9 . 3, 5x, ' m6=' , d9 . 3, 5x, ' m7=' , d9 . 3, 5x, 'm8=' , d9 . 3, t 
&5x, 'm9=' ,d9.3, 5x, 'mlO=' ,d9 .3, 4x, ' mll=' , d9 . 3, 4x, 'ml2«' ,d9 . 3, //) 

go to 100 

10 ml ( j ) =0 . 5* ( 1 . +slh ( i, j ) *dueds/ups) +slh (i, j ) * (h2 (i, j ) 

& *sqrt (roed(i, j) *rmyued(i, j) ) -h2 (i-1, j) *sqrt (roed(i-l, j) 

& *rmyued (i-1, j ) ) ) / (dx*hlps*h2ps *sqrt (roeh ( j ) *rmyueh ( j ) ) ) 
m2 ( j ) -slh ( i, j ) *dueds/ups 
m3 ( j ) =slh (i, j ) *vinf / (h2ps*Ups) 
m4 ( j) =slh (i, j ) *dh2ds/h2ps 
m5 ( j ) =0 
m6 ( j ) -m3 ( j ) 
m7 { j) =0 
m8 ( j ) =0 

if ( j .eq. 1) then 

dvedy= (ve (i, j+1) -ve (i, j ) ) /dy ( j) 
dvedyl=(ve (i-1, j + 1) -ve (i-1, j) ) /dy ( j) 
dhldy= (hi (i, j+1) -hi (i, j) ) /dy ( j) 
dh2dy= (h2 (i, j+1) -h2 (i, j) ) /dy ( j) 
dcosdy= (costh (i, j+1) -costh (i, j ) ) /dy ( j) 
dcosdyl= (costh (i-1, j+1) -costh (i-1, j) ) /dy ( j) 
dcosdys= (dcosdy-dcosdyl) / (si (i, j) -si (i-1, j) ) 
dkldy=-2.* (hi (i,2) -hi (i, 1) ) / (hlps*h2ps*dy ( 1) **2) 
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&+dh2ds*dcosdy/h2ps+dcosdys 
go to 30 
endif 

if { j . eq. jmax) then 

dvedy= ( ve (i, j) -ve (i, j-1) ) /dy (j-1) 
dvedyl- (ve (i-1, j) -ve (i-1, j-l))/dy(j-l) 
dhldy= (hi <i, j) -hi <i, j-1) ) /dy ( j-1) 
dh2dy= (h2 (i f j) -h2 (i, j-1 ) ) /dy ( j-1) 
dcosdy= (costh (i, j ) -costh (i, j-1) )/dy(j-l) 
dcosdyl= (costh (i-1, j) -costh (i-1, j-1) ) /dy(j-l) 
dcosdys= (dcosdy-dcosdyl ) /(sl(i,j)-sl(i-l,j)) 

dkldy=-2 . * (hi (i, jmax-1) -hi (i, jmax) ) / (hips *h2ps*dy ( jmax-1) **2) 
&+dh2ds*dcosdy/h2ps+dcosdys 
endif 

30 m9 ( j ) =slh ( i, j ) *ups*dkldy/ vinf 
mlO ( j) =slh (i, j) /hips 
mll(j)-m2(j) 

dveyds= (dvedy-dvedyl ) / (si (i, j ) -si (i-1, j) ) 

ml 2 (j)=slh(i, j) *dveyds/vinf +slh ( i, j ) *dvedy**2/ (vinf* ups *h2ps ) 

& +slh (i, j ) *dh2ds *dvedy/ (vinf *h2ps) +slh (i, j) *ups *dkldy/vinf 
ml 3 ( j ) =roww ( i, j ) *sqrt (roed (i, j)*ue(i,j)*sl(i,j) /rmyued (i, j ) ) 

&/ (roed (i, j) *ue (i, j) ) 

if (dy(l) . eq. 0 ) m9 ( j ) =0 . 
if (dy (1 ) . eq . 0 ) ml 2 ( j ) =0 . 

c if (i . ge . 1 66) write ( 1, 117) i, j ,ml ( j) , m2 ( j ) , m3 ( j ) , m4 ( j ) , m5 ( j ) , m6 ( j ) 

c &,m7 ( j) ,m8 ( j) , m9 ( j) ,ml0 ( j) ,mll ( j) ,ml2 ( j) 

100 continue 

return 

end 
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c####################################################################### 


subroutine coefcon 

C####################################################################### 
include 'comblck' 

thetaco=atan (-zpd (1,1) /xpd (1,1)) 
do 10 j=l, jmax 

if ( j .eq. 1 .or . j .eq. jmax) go to 20 
ml (j) =1.5 
m2 ( j) =0 . 
m3 ( j) =0 . 

dvedy= (ve (1, j + 1) -ve (1, j-1) ) / (2. *dy ( j-1) ) 
duedy= (ue (1, j+1) -ue (l,j-l))/(2. *dy ( j-1) ) 
m4 ( j ) =1 . 0 

m5 ( j ) =vinf *ve (l,j)/ue(l, j) **2 

dromyu= ( roed (1, j + 1 ) *rmyued ( 1 , j + 1 ) -roed ( 1 , j -1 ) 

& * rmyued ( 1 , j-1) ) / (2 . *dy ( j-1) ) 

m6 ( j) =-0 .5*vinf*ve (1, j) /ue (1, j) **2 
& + 0 . 5*vinf *dromyu/ (sin (thetaco) *ue (1, j ) *roed ( 1, j ) * rmyued ( 1 , j ) ) 
m7 ( j ) =vinf / (ue ( 1 , j ) *sin (thetaco) ) 
m8 ( j ) =- (vinf /ue (1, j ) ) **2 
m9 ( j ) =0 . 
mlO ( j ) =0 . 
mil { j ) =0 . 

ml2 ( j ) =ve ( 1 , j ) / vinf +ve ( 1 , j ) *dvedy 
& / (ue ( 1 , j ) * vinf * sin (thetaco) ) 

c write (1, 117) i, j,ml ( j) , m2 ( j) ,m3 ( j) ,m4 ( j) ,m5 ( j) ,m6 ( j) 

c & , m7 ( j ) , m8 ( j ) , m9 ( j ) , ml 0 ( j ) , ml 1 ( j ) , m!2 { j ) 

c 117 format (//, 2x, ' i=',i3, f j=',i2,' ml=' , d9 . 3, 5x, ' m2=' f d9.3,5x 
c m3=',d9.3,5x, ' m4=',dll.5, 

c &/, 5x, ' m5=' , d9 . 3, 5x, ' m6=' , d9 . 3, 5x, ' m7 = ' , d9 . 3, 5x, f m8 = ' , d9 . 3 , / 

c &5x, ' m9=' , d9 . 3, 5x, 'ml0=' , d9 . 3, 4x, 'mll=' ,d9.3, 4x, f ml2=' ,d9 .3, //) 

go to 10 

20 ml ( j ) =1 . 5 

m2 ( j ) =0 . 

m3 ( j ) =vinf / (ue ( 1, 1) *sin (thetaco) ) 

i f ( j . eq . 1 ) dvedy= ve (1,2) / dy ( 1 ) 

if ( j .eq. jmax) dvedy=-ve (1, jmax-1) /dy ( jmax-1) 

m4 ( j ) =1 . 0 

m5 ( j ) =0 . 

m6 ( j)=m3 ( j) 

m7 ( j) =0 . 

m8 ( j ) =0 . 

m9 ( j ) =0 . 

mlO ( j ) =0 . 

mil ( j)=0. 

ml 2 ( j ) =dvedy**2/ (ue { 1 , 1 ) *vinf *sin (thetaco) ) +dvedy/vinf 
c write (1, 117 ) i , j , ml ( j ) , m2 ( j ) , m3 ( j ) ,m4 ( j ) , m5 { j ) , m6 ( j ) 

c & , m7 ( j ) , m8 ( j ) , m9 ( j ) , ml 0 ( j ) , ml 1 ( j ) ,ml2 ( j) 

10 continue 


return 

end 
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C####################################################################### 


subroutine coefstrm 

include 'comblck' 

do 50 j=l / jmax 

teh=0 . 5* (te (i-1, j ) +te (i, j ) ) 

peh=0 .5* (pe (i-1, j ) +pe (i, j ) ) 

if (inks . eq. 1) rmyueh ( j) =47 . 88* (2 .28d-8* (1 . 8*teh) **1.5) 

& / (1.8*teh+198 . 6) 

if (mks .eq. 0) rmyueh ( j ) = (2 . 28d-8* (teh) **1.5) / (teh+198 . 6) 
roeh ( j ) =peh/ (rr*teh) 

50 continue 

do 100 j=l, jmax 

dueds= (cavd ( i , j ) -cavd (i-1 , j) )/ (si ( i , j ) -si ( i-1 , j) ) 
duedsd ( i , j ) =dueds 

dh2ds= (h2 (i, j)-h2 (i-1, j ) ) / (si (i, j ) -si (i-1, j) ) 

cavl= (cavd ( i, j ) +cavd (i-1, j ) ) / 2 . 

h2ps= (h2 (i, j) +h2 (i-1, j) ) /2 . 

if ( j . eq . 1 . or . j . eq . jmax) go to 40 

duedyd (i, j ) = ( (dy ( j — 1) 

& / dy ( j ) ) * (cavd (i, j+1) -cavd (i, j) ) + (dy ( j ) /dy ( j-1) ) 

&* (cavd (i, j ) -cavd (i, j-1) ) ) / (dy ( j ) +dy ( j-1 ) ) 

40 continue 

if ( j . eq. 1) then 

dkldy=2 . * (cavd(i, 2) -cavd(i, 1) ) / (h2ps *cavl*dy (1) **2) 
if ( jmax . ge . 90 ) dkldy=2 . * (cavd ( i, 6) -cavd (i, 1) ) / (h2ps*cavl 
&*25 . *dy (1) **2) 
endif 

if ( j . eq . jmax) then 

dkldy=2 . * (cavd (i f jmax-1) -cavd (i, jmax) ) / (h2ps*cavl 
St *dy ( jmax-1 ) * *2 ) 

if ( jmax .ge . 90 ) dkldy=2 . * (cavd (i, jmax- 5) -cavd (i, jmax) ) / (h2ps*cavl 
&*25.*dy( jmax-1) **2) 
endif 

4334 if ( j . eq . 1 . or . j . eq . jmax) go to 8000 

ml ( j ) =0 . 5* (1 . +slh (i, j) *dueds/cavl) +slh (i, j) *cavl* (h2 (i, j) 

& *sqrt (roed (i, j) *rmyued (i, j ) ) -h2 (i-1, j ) *sqrt (roed (i-1, j ) 

& *rmyued ( i-1 , j ) ) ) / (dx*vinf *h2ps *sqrt ( roeh ( j ) * rmyueh ( j ) ) ) 
m2 ( j ) =slh ( i, j ) *dueds/cavl 
m3 ( j ) =0 

m4 ( j ) =slh (i, j ) *dh2ds/h2ps 
m5 ( j ) =0 

m6 ( j ) =slh (i, j ) *cavl* { (sqrt (roeh ( j + 1 ) * rmyueh ( j + 1 ) *cavd ( i, j + 1 ) 

Sc *slh(i,j + l))* ( vinf /cavd (i, j + 1 ) ) **2-sqrt ( roeh ( j ) 

&* rmyueh ( j ) *cavd (i,j)*slh(i,j))* (vinf /cavd (i, j ) ) **2) *dy (j-1) /dy ( j ) 
& + (sqrt (roeh ( j ) * rmyueh ( j ) *cavd (i, j) *slh (i, j) ) * (vinf/ cavd ( i , j ) ) **2 
& -sqrt (roeh (j-1) * rmyueh (j-1) *cavd(i, j-1) *slh (i, j-1) ) * (vinf 
& /cavd (i, j-1) ) **2) *dy ( j) /dy( j-1) ) / ( (dy ( j ) +dy ( j-1 ) ) *vinf*h2ps 
& *sqrt (roeh ( j ) * rmyueh ( j ) *cavl*slh (i, j ) ) ) 
m7 ( j ) =slh ( i, j ) *vinf / (h2ps*cavl ) 
m8 ( j) =-slh (i, j) *dh2ds*vinf **2 / (h2ps*cavl**2 ) 
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m9 < j) =slh(i, j) * ( (dy ( j-1) /dy ( j) ) 

&* (cavd (i, j + 1) -cavd (i, j ) ) + (dy ( j) /dy ( j-1) ) 

& * (cavd (i, j ) -cavd (i, j-l)))/((dy(j) +dy (j-1) ) *vinf *h2ps ) 
mlO ( j ) =slh (i, j ) *cavl/vinf 
ml 1 ( j ) =m2 ( j ) 
ml 2 < j) =m9 ( j) 

ml 3 ( j ) =roww (i, j ) *sqrt (roed (i, j ) *cavd (i,j)*sl(i,j)/ rmyued (i, j ) ) 

&/ (roed (i, j) *cavd(i, j) ) 

c if (i.ge. 99) write ( 1 , 117 ) i, j , ml < j ) , m2 ( j ) , m3 ( j ) , m4 ( j ) , m5 ( j ) , m6 ( j ) 

c &,m7 ( j) , m8 ( j) r m9 ( j) ,mlO ( j) f mil ( j) ,ml2 ( j) 

117 format (//,2x, ' i=',i3,' j= r ,i2, 9 ml=' , d9 . 3, 5x f ' m2=',d9.3,5x 

m3=' ,d9.3,5x, ' m4=',dll.5, 

& / , 5x, ' m5= f , d9 . 3, 5x, ' m6 = ' ,d9 .3, 5x, ' m7= f , d9 . 3, 5x, ' m8 = ' , d9 . 3 , / 

&5x, ' m9 = r , d9 . 3, 5x, 9 mlO=' , d9 . 3, 4x, ' mll=' , d9 . 3 , 4x f 9 ml2=' , d9 . 3, // ) 

go to 100 

8000 ml ( j ) =0 . 5* (1 . +slh (i, j ) *dueds/cavl) +slh (i, j ) *cavl* (h2 ( i, j ) 

& *sqrt (roed(i, j) *rmyued(i, j) ) -h2 (i-1, j) *sqrt (roed (i-1, j) 

& *rmyued(i-l, j) ) ) / (dx*vinf *h2ps*sqrt (roeh ( j) *rmyueh ( j) ) ) 
m2 ( j ) =slh ( i, j ) *dueds/cavl 
m3 ( j ) =slh (i, j ) *vinf / (h2ps*cavl) 
m4( j)=slh(i, j) *dh2ds/h2ps 
m5 ( j ) = 0 
m6 ( j)=m3 ( j) 
m7 ( j)-0 
m8 ( j ) =0 

m9 ( j ) =slh (i, j) *dkldy*cavl/vinf 
ml 0 ( j ) =s lh ( i, j) *cavl / vinf 
ml 1 ( j ) =m2 ( j ) 
ml2 ( j)=m9 ( j) 

ml3 ( j ) =roww (i, j ) *sqrt (roed (i, j ) *cavd (i, j ) *sl (i, j ) / rmyued (i, j ) ) 

&/ (roed (i, j) *cavd(i, j) ) 

c if (i . ge . 9 9) write ( 1 , 1 17 ) i , j , ml ( j ) , m2 ( j ) , m3 ( j ) , m4 ( j ) , m5 ( j ) , m6 ( j ) 

c &,m7 ( j) ,m8 ( j) ,m9 ( j) ,ml0 ( j) , mil ( j) ,ml2 ( j) 


100 continue 
return 
end 


58 


C ####################################################################### 


subroutine conoff 

C####################################################################### 

include 'comblck' 

c 

c 

c cone off the line of symmetry solution 

c 

c (blottner' s iterative method is used) 

C 

c 

he=cp*te (1, j) +0 . 5*cavd(l, j) **2 

4100 write (6,*)' j-' , j, ' kmax=' , kmax, ' zeta (kmax) =' , zeta (kmax) 

do 1031 k-1 , kmax 
h(l, j,k)=h(l, j-l,k) 
h (2, j , k) =h (2 , j-l,k) 
hs (1, j, k) =hs (1, j-l,k) 
hs (2, j, k) =hs (2, j-1, k) 

1031 continue 

it=0 

do 1123 k=l,kmax 
be ( j,k) =bc ( j-1, k) 

1123 roero ( j , k) =roero ( j — 1 , k ) 

1170 it-it+1 

if (it . gt .30) write (6, *) ' iteration for conoff is gt.30',' j=' , j 
if (it .gt . 30) stop 
do 1110 k=2,kmax-l 

ai (1, k) = (ml ( j ) *hs (1, j, k) +m6 ( j) *hs (2, j, k) ) 

& * (dzeta (k) /dzeta (k-1) ) / (dzeta (k) +dzeta (k-1) ) 

& - (be ( j, k) +bc ( j, k-1) ) / (dzeta (k-1) * (dzeta (k) +dzeta (k-1) ) ) 

ai (2 , k) =0 
ai (3, k) =0 
ai(4,k)=ai(l,k) 

ci (1, k) =- (ml { j) *hs (1, j,k) +m6 { j ) *hs (2 , j , k) ) 

& * (dzeta (k-1) /dzeta (k) ) / (dzeta (k) +dzeta (k-1) ) 

& - (be ( j,k) tbc ( j, k+1) ) / (dzeta (k) * (dzeta (k) +dzeta (k-1) ) ) 

ci (2 , k) =0 
ci ( 3, k) =0 
ci (4, k) =ci (1, k) 

bi ( I, k) =- ( (be ( j, k) +bc ( j,k+l) ) /dzeta (k) + (be ( j, k) +bc ( j, k-1) ) 

& /dzeta (k-1) ) / (dzeta (k) tdzeta (k-1) ) 

& + (ml ( j) *hs (1, j, k) +m6 (j)*hs(2,j,k))* (dzeta (k) -dzeta (k-1 ) ) 

Sc / (dzeta (k) *dzeta (k-1) ) -m5 ( j ) *h (2, j, k) -m7 ( j ) *h (2, j , k) /dy ( j-1 ) 

bi(2,k)=-m4(j)*h(2, j,k) 

bi (3, k) =-m5 ( j ) *h (1, j,k) -2 . *m8 ( j) *h (2, j, k) 

bi ( 4 , k) =- ( (be ( j, k) +bc ( j, k+1) ) /dzeta (k) + (be ( j, k) +bc ( j f k-1) ) 

& /dzeta (k-1) ) / (dzeta (k) tdzeta (k-1) ) 

& + (ml ( j ) *hs (1, j, k) +m6 ( j ) *hs (2, j,k) ) * (dzeta (k) -dzeta (k-1) ) 

& / (dzeta (k) *dzeta (k-1) ) -m4 ( j) *h (l r j, k) -m7 ( j ) *h (2, j , k) /dy ( j-1) 
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feta= ( (dzeta (k-1) /dzeta (k) ) * (h (1, j , k+1) -h ( 1, j , k) ) + (dzeta { k ) 

& /dzeta (k-1) ) * (h (1, j , k) -h (1, j , k-1) ) ) / (dzeta (k) +dzeta (k-1 ) ) 
geta= ( (dzeta (k-1) /dzeta (k) ) * (h (2, j, k+1) -h (2, j, k) ) + (dzeta (k) 

& /dzeta (k-1) ) * (h <2, j, k) -h (2, j, k-1) ) ) / (dzeta <k)+dzeta (k-1) ) 

as (1, k) =ml ( j) *feta 
as (2, k) =ml ( j) *geta 

as (3, k) =m 6 ( j) *feta+m7 ( j) *feta/dy ( j-1 ) 
as ( 4, k) =m6 ( j ) *geta+m7 ( j ) *geta/dy ( j-1 ) 

di (l f k) = (ml ( j) *hs (1, j r k) +m6 ( j) *hs <2, j, k) ) *feta-m5 ( j) *h(l, j,k) 

& *h (2 , j , k) -m8 (j) *h (2, j , k) **2-m7 ( j ) *h (2, j , k) *h (1, j-1, k) /dy ( j-1) 

&+m7 ( j) *f eta*hs (2, j-l,k) /dy ( j-1) 

di (2, k) = (ml ( j ) *hs (1, j , k) +m6 (j)*hs(2,j,k)) *geta 
&-m4 { j) *h (1, j,k) *h (2, j, k) -ml2 ( j) *roero ( j, k) 

&-m7 (j) *h(2, j,k) *h(2, j-1, k) /dy ( j-1) +m7 ( j) *geta*hs (2, j-1, k) /dy (j-1) 

1110 continue 

do 1120 m=l, 4 
e (m, kmax) =0 
es (m, kmax) =0 
1120 continue 

ds ( 1, kmax) =1 . 0 
ds (2, kmax) -ve (1, j ) /vinf 
do 1140 m=l, 2 
hn (m, j , 1) =0 
hsn (m, j , 1 ) = 0 
1140 continue 

call ntrid 

c do 115 k=l,kmax 

c write(6,*)' it=',it,' k=',k, / hnl=' , hn ( 1 , j , k) , ' hn2=' , hn (2 , j , k) 

c 115 continue 

isat=0 

do 1145 k-2 r kmax-1 

er= (h (1, j, k) -hn (1, j, k) ) /h (1, j, k) 

if (abs (er) -l.d-5) 1145, 1145, 1146 

1145 continue 

isat=l 

1146 do 1150 k=l , kmax 
do 1150 m=l, 2 

h (m, j , k) =hn (m, j, k) 
hs (m, j , k) =hsn (m, j , k) 

1150 continue 

do 1151 k=2, kmax-1 

bcom(k) = (be ( j, k) +bc (j,k-l) ) / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k-1) ) 
& - (ml ( j) *hs (1, j,k) +m6 ( j ) *hs (2, j , k) +m7 ( j ) * (hs (2, j, k) -hs (2, j-1, k) ) 
&/dy ( j-1) ) 

&*dzeta (k) / (dzeta (k-1) * (dzeta (k) tdzeta (k-1) ) ) 

dcom (k) -- (be ( j , k) +bc ( j , k+1) ) / <pr* (dzeta (k) +dzeta (k-1 ) ) *dzeta (k) ) 

& - (be ( j , k) +bc ( j , k-1) ) / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k-1 ) ) 

&+ (ml ( j) *hs (1, j,k) +m6 ( j) *hs (2, j,k) +m7 ( j ) * (hs (2, j,k) -hs (2, j-l,k) ) 
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&/dy ( j-1) ) 

&*dzeta (k) / (dzeta (k-1) * (dzeta (k) +dzeta (k-1) ) ) 

&- (ml ( j) *hs (1, j , k) +m6 ( j) *hs (2, j,k) +m7 ( j) * (hs (2, j , k) -hs (2, j-l,k) ) 
&/dy ( j-1) ) 

&*dzeta (k-1) / (dzeta (k) * (dzeta (k) +dzeta (k-1) ) ) 

&-m7(j)*h(2, j,k)/dy(j-l) 

acom(k) = (be ( j,k) +bc ( j,k+l) ) / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k) ) 

& + (ml ( j) *hs (1, j, k) +m6 ( j) *hs (2, j , k) +m7 (j)*(hs(2,j,k) -hs (2, j-1, k) ) 
&/dy(j-l) ) 

&*dzeta (k-1) / (dzeta (k) * (dzeta (k) +dzeta (k-1) ) ) 

feta= ( (dzeta (k-1) /dzeta (k))*(h(l,j,k+l)-h(l,j,k)) + (dzeta (k) 
S/dzeta (k-1) ) * (h (1, j, k) -h (1, j , k-1) ) ) / (dzeta (k) +dzeta (k-1) ) 
geta= ( (dzeta (k-1 ) / dzeta (k) ) * (h(2, j,k+l)-h(2, j,k) )+ (dzeta (k) 

& /dzeta (k-1) ) * (h(2, j,k) -h(2, j,k-l) ) ) / (dzeta (k) +dzeta (k-1) ) 

cfeta=h ( 1, j, k) *feta* (be ( j, k+1 ) -be ( j, k-1) ) / (dzeta (k) +dzeta (k-1) ) 

& +bc ( j,k) *feta**2+bc ( j,k) *h (1, j,k) *2 . * ( (h (1, j,k+l) -h (1, j,k) ) /dzeta 
& (k)- (h ( 1, j,k) -h(l, j,k-l) ) /dzeta (k-1) ) / (dzeta (k) +dzeta (k-1) ) 

cgeta=h (2, j, k) *geta* (be ( j, k+1) -be ( j, k-1) ) / (dzeta (k) +dzeta (k-1) ) 

& +bc ( j, k) *geta**2+bc (j,k)*h(2,j,k)*2.*((h(2, j, k+1) -h (2, j, k) ) / dzeta 
&(k)-(h(2,j,k)-h(2,j,k-l)) /dzeta (k-1) ) / (dzeta (k) +dzeta (k-1) ) 

ccom (k) =-ue (l,j)**2*(l.-l. /pr) * (efeta+egeta* (vinf /ue (l,j))**2)/he 
& -m7 ( j) *h (2, j,k) *h (3, j-l,k) /dy ( j-1) 

1151 continue 

ccom(kmax-l) =ccom(kmax-l) -acorn (kmax-1 ) 

if (kaw .eq. 1) dcom(2) =dcom (2 ) -bcom(2 ) * (dzeta (1) +dzeta (2) ) **2 
& / (dzeta (1) **2- (dzeta (1) +dzeta (2) ) **2) 

if (kaw .eq . 1 ) acorn (2 ) =acom (2 ) +bcom (2 ) *dzeta (1) **2 
& / (dzeta (1) * *2- (dzeta ( 1 ) +dzeta (2) ) **2) 

if (kaw . eq. 0 ) ccom (2) =ccom(2) -bcom(2) *cp*twall (1, j) / (cp*te (1, j) 

& +0 . 5*cavd ( 1 , j ) **2 ) 

call sy (2, kmax-1, bcom, dcom, acorn, ccom) 

2146 do 1152 k=2, kmax-1 

1152 h (3, j , k) =ccom (k) 
h (3, j , kmax) =1 . 

if (kaw.eq. l)h(3, j, 1)= (dzeta (1) **2*h (3, j, 3) -(dzeta (1) +dzeta (2) ) **2 
& *h(3, j, 2) ) / (dzeta (1) **2- (dzeta ( 1 ) +dzeta (2) ) **2) 

if (kaw.eq. 0)h (3, j , 1 ) =cp*twall ( 1 , j) / (cp*te (1, j) +0 . 5*cavd (1, j) **2) 


do 1153 k=l,kmax 

td ( j , k) = (he*h (3, j , k) -0 . 5* (ue (1, j) *h (1, j,k) ) **2 
&-0.5* (vinf *h (2, j,k) ) **2) /cp 
if (td(j,k) .le.0)then 

write(6,*)' td(j,k) is le. 0. at k=',k,' j=' , j 

& , ' he=' , he, ' h3=' , h (3, j, k) , ' ue (1, j) =' , ue (1, j) , ' hl=' , h (1, j, k) 
iend=l 
return 
endif 

roero ( j, k) =td ( j, k) /te (1, j) 

if (mks.eq.l)bc ( j,k) = (te(l, j) /td( j , k) ) * ( ( 1 . 8*td( j, k) ) **1 . 5) 

& * (1. 8*te(l, j) +198. 6) / ( (1 . 8*td( j,k) +1 98 . 6) * ( (1 . 8*te <1, j) ) **1 . 5) ) 
if (mks .eq. 0)bc(j,k) = (te(l,j)/td(j,k))* (td( j, k) **1.5)*(te(l,j) 

& +198.6) /( (td(j,k) +198.6) * (ted, j) **1.5) ) 
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1153 


continue 


if ( isat . eq . 1) go to 1160 
go to 1170 

1160 if (h (1, j, kmax-1) . It . ukmaxl ) then 
kmax=kmax+l 
h ( 1, j , kmax) =1 . 0 
h (2, j, kmax) =ve (1, j) /vinf 
h (3, j, kmax) =1 . 0 

hs (1, j, kmax) =hs (1, j, kmax-1) + (h (1, j, kmax) +h (1, j , kmax-1) ) 

& *dzeta (kmax-1 ) /2 . 

hs ( 2 , j , kmax) -hs (2, j, kmax-1) + (h<2, j,kmax)+h(2, j, kmax-1) ) 

&*dzeta (kmax-1) /2 . 
roero ( j , kmax) =1 . 0 
be ( j , kmax) =1 . 0 
h (1, j-1, kmax) =1.0 
h (2, j-1, kmax) =ve (1, j -1 ) /vinf 
h (3, j-1, kmax) =1 . 0 

hs (1, j-1, kmax) =hs (1, j-1, kmax-1) + (h (1, j-1, kmax) +h (1, j-1, kmax-1) ) 
& *dzeta (kmax-1) / 2 . 

hs (2 , j-1, kmax) =hs (2, j-1, kmax-1) + (h (2, j-1, kmax) +h (2, j-1, kmax-1) ) 
&*dzeta (kmax-1) /2 . 

roero ( j-1 , kmax) =1.0 
be ( j -1 , kmax) =1.0 
go to 4100 
endif 

return 

end 
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C ####################################################################### 


subroutine conon 
include 'comblck' 

c 

c 

c cone on the line of symmetry solution 

c 

c (blottner's iterative method is used) 

c 

c 

he=cp*te (1, j) +0 . 5*cavd (1, j ) **2 

4100 write (6,*) ' kmax=' , kmax, 7 zeta (kmax) = ' , zeta (kmax) 

do 1030 m=l, 2 
h (m, j, 1) =0 
hs (m, j , 1 ) =0 

1030 continue 

do 1031 k=2 f kmax 
h { 1/ j r k) —1 . 

if ( j .eq. 1) h (2, j, k) =ve (1,2)/ (vinf *dy (1) ) 
if ( j .eq. jmax) h (2 f j, k) =-ve (1, jmax-1) / (vinf *dy ( jmax-1 ) ) 
hs ( 1, j , k) =hs ( 1, j , k-1) + (h (1, j , k) +h ( 1 , j , k-1) ) *dzeta (k-1 ) /2 . 
hs (2, j,k)=hs (2, j , k-1) + (h (2, j , k) +h (2, j,k-l) ) *dzeta(k-l) / 2. 

1031 continue 

it=0 

do 1123 k=l,kmax 
be ( j, k) =1 . 

1123 roero ( j , k) =1 . 

1170 it=it+l 

if (it .gt . 30) write ( 6 , *) 9 iteration in conon is gt.30',' j = ' , j 
if (it .gt . 30) stop 
do 1110 k=2,kmax-l 

ai (1, k) = (ml ( j) *hs (1, j, k) +m6 ( j) *hs (2, j, k) ) 

& * (dzeta (k) /dzeta (k-1) ) / (dzeta (k) +dzeta (k-1) ) 

& - (be { j,k) +bc ( j, k-1) ) / (dzeta (k-1) * (dzeta (k) +dzeta (k-1) ) ) 

ai (2 , k) =0 
ai (3, k) -0 
ai ( 4 , k) =ai ( 1, k) 

ci (l,k)=- (ml ( j) *hs (1, j, k) +m6 ( j) *hs (2, j,k) ) 

& * (dzeta (k-1) /dzeta (k) ) / (dzeta (k) tdzeta (k-1) ) 

& - (be ( j, k) +bc ( j, k+1) ) / (dzeta (k) * (dzeta (k) tdzeta (k-1) ) ) 

ci (2 , k) =0 
ci (3, k) =0 
ci (4, k) -ci (1, k) 

bi (1, k) =- ( (be ( j, k) +bc ( j, k+1) ) /dzeta (k) + (be ( j , k) +bc ( j,k-l) ) 

& /dzeta (k-1) ) / (dzeta (k) tdzeta (k-1) ) 

& + (ml ( j) *hs (l f j, k) +m6 ( j) *hs (2, j, k) ) * (dzeta (k) -dzeta (k-1) ) 

& / (dzeta (k) *dzeta (k-1) ) -m5 ( j) *h (2, j, k) -m7 ( j ) *h (2, j, k) 

bi (2 , k) =-m4 ( j ) *h<2, j,k) 

bi(3,k) =-m5 ( j ) *h <1, j, k) -2 . *m8 ( j ) *h (2, j, k) 
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bi (4,k) =- ( (be ( j,k) +bc ( j, k+1) ) /dzeta (k) + (be ( j, k) +bc ( j,k-l) ) 

& /dzeta (k-1) ) / (dzeta (k) +dzeta (k-1 ) ) 

& + (ml ( j ) *hs (1, j, k) +m6 ( j ) *hs (2, j , k) ) * (dzeta (k) -dzeta (k-1) ) 

& / (dzeta (k) *dzeta (k-1) ) -m4 ( j) *h (1, j, k) -m7 ( j) *h (2, j,k) 

& -2.*m3< j)*h(2, j,k) 

feta= ( (dzeta (k-1) /dzeta (k) ) * (h (1, j, k+1) -h (1, j,k) ) + (dzeta (k) 

Sl / dzeta (k-1) ) * (h (1, j , k) -h(l, j,k-l) ) ) / (dzeta (k) + dzeta (k-1) ) 
geta= ( (dzeta (k-1) /dzeta (k) ) * (h (2, j, k+1) -h (2, j, k) ) + (dzeta (k) 

& /dzeta (k-1) ) * (h (2, j , k) -h (2, j , k-1) ) ) / (dzeta (k) tdzeta (k-1) ) 

as ( 1, k) =ml ( j ) *feta 
as (2, k) =ml ( j ) *geta 
as (3, k) =m6 ( j) *feta+m7 ( j) *feta 
as (4, k) =m6 ( j) *geta+m7 ( j ) *geta 

di (1, k) = (ml ( j) *hs (1, j,k) +m 6 ( j) *hs (2, j,k) ) *f eta-mS ( j) *h <l r j r k) 
&*h(2, j,k) -m8(j)*h(2, j f k) **2-m7(j) *h(2, j,k) *h(l, j-l,k) 

&+m7 ( j ) *f eta*hs (2, j-1, k) 

di (2, k) = (ml ( j) *hs (1, j, k) +m6 ( j ) *hs (2, j, k) ) *geta 
&-m4 ( j) *h(l, j, k) *h(2, j,k) -ml2 ( j) *roero( j, k) 

&-m7 ( j) *h (2, j, k) *h (2, j-1, k) +m7 { j ) *geta*hs (2, j-l,k) 

&-m3 { j ) *h(2, j, k) **2 

1110 continue 

do 1120 m=l , 4 
e (m, kmax) =0 
es (m, kmax) =0 
1120 continue 

ds ( 1 , kmax) =1.0 

if ( j .eq. 1) ds (2, kmax) =ve (1,2)/ (vinf *dy (1) ) 
if ( j .eq. jmax) ds (2, kmax) =-ve (1, jmax-1) / (vinf *dy ( jmax-1) ) 
do 1140 m=l, 2 
hn (m, j , 1 ) =0 
hsn (m, j, 1) =0 
1140 continue 

call ntrid 

isat=0 

do 1145 k=2,kmax-l 

er= (h (1, j, k) -hn (1, j , k) ) /h ( 1, j , k) 

if (abs (er) -l.d-4) 1145, 1145,1146 

1145 continue 

isat=l 

1146 do 1150 k=l, kmax 
do 1150 m=l, 2 

h (m, j , k) =hn (m, j,k) 
hs (m, j, k) =hsn (m, j, k) 

1150 continue 

do 1151 k=2,kmax-l 

bcom ( k ) = ( be ( j , k ) +bc ( j,k-l) ) / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k-1) ) 

& - (ml ( j) *hs (1, j,k) +m6 { j) *hs (2, j,k) +m7 ( j ) * (hs (2, j , k) -hs (2, j-1, k) ) ) 
&*dzeta (k) / (dzeta (k-1) * (dzeta (k) tdzeta (k-1) ) ) 

doom (k) =- (be ( j, k) +bc ( j,k+*l) ) / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k) ) 
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& - (be ( j, k) +bc ( j,k-l) ) / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k-1) ) 

& + (ml ( j) *hs (1, j,k) +m6 ( j) *hs (2, j,k) +m7 ( j) * (hs (2, j,k) -hs <2, j-1, k) ) ) 

& *dzeta (k) / (dzeta (k-1) * (dzeta (k) +dzeta (k-1) ) ) 

&- (ml ( j ) *hs (1, j,k)+m6 ( j) *hs (2, j,k) +m7 ( j ) * (hs (2, j , k) -hs (2, j-1, k) ) ) 
&*dzeta (k-1) / (dzeta (k) * (dzeta (k) +dzeta (k-1) ) ) 

&-m7(j)*h<2, j,k) 

acom(k) = (be ( j, k) +bc ( j,k+l) ) / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k) ) 

&+ (ml ( j) *hs (1, j,k) +m6 ( j) *hs ( 2 , j,k) +m7 ( j) * (hs ( 2 , j , k) -hs (2, j-l,k) ) ) 
&*dzeta (k-1) / (dzeta (k) * (dzeta (k) +dzeta (k-1) ) ) 

f eta= ( (dzeta (k-1) /dzeta (k) ) * (h (1, j, k+1) -h (1, j, k) ) + (dzeta (k) 

& /dzeta (k-1) ) * (h <1, j,k) -h (1, j,k-l) ) ) / (dzeta (k) +dzeta (k-1) ) 
geta= ( (dzeta (k-1) /dzeta (k) ) * (h (2, j,k+l) -h (2, j, k) ) + (dzeta (k) 

& /dzeta (k-1) ) * (h (2, j, k) -h (2, j, k-1) ) ) / (dzeta (k) +dzeta (k-1) ) 

cfeta=h (1, j, k) *feta* (be ( j, k+1) -be ( j, k-1) ) / (dzeta (k) +dzeta (k-1) ) 

& +bc ( j, k) *feta**2+bc ( j,k) *h (1, j, k) *2 . * ( (h ( 1, j , k+1) -h (1, j, k) ) /dzeta 
&(k)-(h(l, j r k)-h(l, j,k-l)) /dzeta (k-1) ) / (dzeta (k) +dzeta (k-1) ) 

cgeta=h (2 , j , k) *geta* (be ( j , k+1 ) -be ( j , k-1) ) / (dzeta (k) +dzeta (k-1) ) 

& +bc ( j, k) *geta**2+bc ( j , k) *h ( 2 , j , k) *2 . * ( (h ( 2 , j,k+l) -h ( 2 , j, k) ) /dzeta 
&{k)-(h(2,j,k)~h(2,j,k-l)) /dzeta (k-1) ) / (dzeta (k) +dzeta (k-1) ) 
ccom (k) =-ue (l,j)**2*(l.-l./pr) *c feta/ he 
& -m7(j)*h(2, j,k)*h(3, j-l,k) 

1151 continue 

ccom (krnax-1 ) =ccom (kmax-1 ) -acorn (kmax-1 ) 

if (kaw.eq. 1) dcom(2) -dcom(2) -bcom(2) * (dzeta (1) +dzeta (2) ) **2 
& / (dzeta (1) **2- (dzeta (1) +dzeta (2) ) **2) 

if (kaw.eq.l) acorn ( 2 ) =acom (2 ) +bcom ( 2 ) * dzeta ( 1 ) * *2 
& / (dzeta (l)**2-(dzeta(l) +dzeta (2 ) ) ** 2 ) 

if (kaw.eq. 0) ccom (2) =ccom(2) -bcom(2) *cp*twall ( 1 , j ) / (cp*te ( 1 , j ) 

& +0.5*ue(l, j) * *2 ) 

call sy (2 , kmax-1 , bcom, dcom, acorn, ccom) 

do 1152 k=2, kmax-1 

1152 h (3, j , k) =ccom (k) 
h ( 3, j , kmax) =1 . 

if (kaw.eq. l)h (3, j , 1) = (dzeta (1 ) **2*h(3, j, 3) - (dzeta (1) +dzeta (2 ) ) **2 
& *h (3, j , 2 ) ) / (dzeta (1) * *2- (dzeta (1) +dzeta(2) ) **2) 

if (kaw.eq. 0) h (3, j, 1) =cp*twall (1, j) / (cp*te (1, j) +0 . 5*cavd (1, j) **2) 
do 1153 k=l , kmax 

td( j, k) « (he*h (3, j, k) -0 . 5* (cavd (1, j ) *h ( 1, j , k) ) **2 ) /cp 
if (td(j,k) .lt.0)then 

write(6,*)' td(j,k) is It. 0. at k=',k,' j=' , j 

& , ' he=' , he, ' h3=' , h (3, j , k ) , ' cavd ( 1, j ) =' , cavd (1 , j),' hl=',h(l,j,k) 
iend=l 
return 
endif 

roero ( j , k) =td (j,k)/te(l,j) 

if (mks . eq. 1) be ( j , k) = (te ( 1, j ) /td ( j, k) ) * ( ( 1 . 8*td (j,k))**1.5) 

& * (1.8*te (1, j) +198 .6) / ( <1.8*td< j f k) +198 . 6) * ( (1.8*te(l, j) ) **1 .5) ) 
if (mks . eq.0)bc(j,k) = (te(l,j)/td(j,k))*(td(j,k)**1.5)*(te(l,j) 

& +198.6) /( (td(j,k) +198.6) *(te(l, j) **1.5) ) 

1153 continue 

if ( isat . eq. 1 ) go to 1160 
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go to 1170 


1160 if (h ( 1, j , kmax-1) . It . ukmaxl) then 
kmax=kmax+l 
h ( 1 , j , kmax) =1 . 0 

h (2 , j, kmax) =ve ( 1 , 2 ) / (vinf *dy ( 1 ) ) 
if(j.eq.l)h(2,j, kmax) =ve (1,2)/ (vinf *dy (1) ) 
if ( j . eq. jmax) h (2, j , kmax) =-ve (1, jmax-1) / (vinf *dy ( jmax-1 ) ) 
hs (1, j, kmax) =hs (1, j, kmax-1) + (h (1, j, kmax) +h (1, j, kmax-1) ) 
&*dzeta (kmax-1) /2 . 

hs (2, j , kmax) =hs (2, j , kmax-1) + (h (2, j , kmax) +h (2, j , kmax-1 ) ) 
&*dzeta (kmax-1) /2 . 
roero ( j , kmax) -1 . 0 
be ( j , kmax) =1 . 0 
go to 4100 
endif 

return 

end 
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c####################################################################### 


subroutine correct 

c ####################################################################### 

include ' comblck' 

do 1257 k=l,kmax 
bl < j , k) =bcb ( j, k) 
b2 ( j , k) =0 . 
b3 ( j, k) =0 . 
b4 ( j, k) =bcb { j, k) 

1257 continue 


c 

c to calculate ak, bk, ck, ak, and dk 

c 


1256 do 5300 k=2,kmax-l 

de=dzeta (k) +dzeta (k-1) 

ai (l,k)=-0 .5* (bl ( j,k) +bl ( j,k-l) ) / (de*dzeta (k-1 ) ) 
ai (2, k) =-0.5* (b2 ( j, k) +b2 ( j, k-1) ) / (de*dzeta (k-1)) 
ai (3,k) =-0.5* (b3 ( j, k) +b3 ( j,k-l) ) / (de*dzeta (k-1) ) 
ai (4,k)=-0 .5* (b4 ( j,k) +b4 ( j,k-l) ) / (de*dzeta (k-1) ) 

ci (1, k) =-0 . 5* (bl ( j , k) +bl ( j, k+1) ) / (de*dzeta(k) ) 
ci(2,k)=-0 .5* (b2 ( j , k) +b2 ( j,k+l) ) / (de*dzeta(k) ) 
ci(3,k)=-0.5*(b3(j,k) +b3 ( j,k+l) ) / (de*dzeta (k) ) 
ci (4,k)=-0 .5* (b4 ( j , k) +b4 ( j, k+1) ) / <de*dzeta (k) ) 

bi (1, k) =-0.5* ( (bl ( j,k) +bl ( j,k+l) ) /dzeta (k) + (bl ( j, k) +bl ( j , k-1 ) ) 
&/dzeta (k-1) ) /de-ml0 ( j) *hb(l, j,k) /dx 

bi (2,k) =-0.5* ( (b2 ( j,k) +b2 ( j, k+1) ) /dzeta (k) + (b2 ( j,k)+b2 ( j, k-1) ) 
&/dzeta (k-1) ) /de 

bi (3, k) =-0 . 5* ( (b3 ( j , k) +b3 ( j , k+1 ) ) /dzeta (k) + (b3 ( j , k) +b3 ( j, k-1) ) 
&/dzeta (k-1) ) /de 

bi (4, k) =-0.5* ( (b4 ( j,k) +b4 ( j,k+l) ) /dzeta (k) + (b4 ( j, k) +b4 ( j, k-1) ) 
&/dzeta (k-1) ) /de-ml0 ( j) *hb(l, j, k) /dx 

fbeta= (hb (1, j , k+1) -hb (1, j, k-1) ) / (dzeta(k) +dzeta (k-1) ) 
gbeta= (hb (2 , j , k+1) -hb (2, j , k-1) ) / (dzeta(k) +dzeta (k-1) ) 

as (1 , k) =ml0 ( j ) *fbeta/dx 
as (2 , k) =ml0 ( j ) *gbeta/dx 
as (3, k) =0 
as (4, k) =0 

di(l,k) = (0.5* (bl ( j , k) +bl ( j, k+1) ) * (h(l, j, k) -h (1, j , k+1) ) 

& /dzeta (k) +0 .5* (bl ( j, k) +bl ( j, k-1) ) * (h (1, j, k) -h (1, j , k-1) ) 

& /dzeta (k-1) ) /de+(0 .5* (b3 ( j,k) +b3 ( j, k+1) ) * (h(2, j,k) -h(2, j,k+l) ) 

& /dzeta (k)+0.5*(b3(j,k) +b3 ( j , k-1) ) * (h(2, j,k) -h(2, j , k-1) ) 

& /dzeta (k-1 ) ) / de-ml ( j ) *hsb (1, j , k) *f beta+m2 ( j ) *hb (1, j,k) **2 
&+m5 ( j ) *hb ( 1 , j , k) *hb (2 , j , k) -m6 (j) *hsb(2, j,k) *fbeta 
&+m8 ( j ) *hb (2, j, k) **2-mll ( j ) *roerob ( j, k) 

&+ml0 ( j ) *hb (l,j,k)*(-h(l,j,k)) /dx+ml0 ( j ) *hs (1, j, k) *fbeta/dx 
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&+ml3 ( j ) *fbeta 

di(2,k) = (0.5*(b4(j,k)+b4(j,k+l))*(h<2, j,k)-h(2, j,k+l) ) 

& /dzeta (k) +0.5* (b4 ( j,k) +b4 ( j, k-1) ) * (h (2, j, k) -h (2, j, k-1) ) 

& /dzeta (k-1) ) /de+ (0.5*(b2(j,k) +b2 ( j , k+1) ) *(h(l,j,k)-h(l, j, k+1) ) 

& /dzeta (k) +0 . 5* (b2 ( j , k) +b2 ( j f k-1) ) * (h (1, j, k) -h (1, j, k-1) ) 

& /dzeta (k-1) ) /de-ml ( j ) *hsb (1, j , k) *gbeta+m4 ( j ) *hb ( 1, j , k) *hb (2 , j , k) 

&+m3 (j) *hb (2 , j , k) **2-m6 (j) *hsb (2 , j , k) *gbeta 

&+m9 ( j ) *hb ( 1, j, k) **2-ml2 ( j ) *roerob ( j, k) +ml0 ( j ) *hb ( 1, j , k) * 

& (-h (2, j f k) ) / dx+ml 0 ( j ) *hs (1, j , k) *gbeta/dx+ml3 ( j ) *gbeta 
if ( j . eq . 1 . or . j . eq . jmax) go to 5300 
db=dy ( j) +dy ( j-1) 

if ( j . eq . 2 ) save ( 1, k) =hb (2 , j-1, k) 
if ( j . eq . 2 ) save (2 , k) =hsb (2 , j-1, k) 
if ( j . eq. jmax-1) save (3, k) =hb (2, j+1, k) 
if ( j .eq. jmax-1) save (4, k) =hsb (2, j+1, k) 

if ( j .eq. 2) hb (2, j-1, k) =0 
if ( j . eq. 2 ) hsb (2 , j-1 , k) =0 
if ( j . eq. jmax-1 ) hb(2, j+l,k)=0 
if ( j . eq. jmax-1 ) hsb (2 , j+1 , k) =0 

fby= { (dy ( j-1) /dy (j) ) *{hb(l, j+1/ k) -hb ( 1, j , k) ) 

&+(dy(j) /dy(j-l) ) * (hb(l, j , k ) -hb (1, j-l,k) ) ) /db 
sgby= ( (dy ( j-1) /dy ( j ) ) * (hsb (2 , j+1, k) -hsb (2, j , k) ) 

&+(dy( j) /dy ( j-1) ) * (hsb (2, j,k) -hsb (2, j-l,k) ) ) /db 
gby=( (dy ( j-1) /dy ( j) )*(hb(2,j+l,k) -hb(2, j,k) ) 

&+ (dy ( j ) /dy ( j-1) ) * (hb (2, j , k) -hb(2, j-l,k) ) ) /db 

if (kterm.eq. 1 . and. j . eq. jmaxt ) then 

f by- ( 3 . *hb ( 1 , j , k) -4 . *hb <1, j-1, k) +hb <1, j-2,k) ) / <2.*dy ( j-1) ) 
gby= (3 . *hb (2 , j , k) -4 . *hb (2, j-1, k) +hb (2, j-2,k) ) /(2.*dy ( j-1) ) 
sgby=(3.*hsb(2, j,k) -4 . *hsb (2, j-1, k) +hsb (2, j-2, k) ) / (2.*dy( j-1) ) 
endif 

di ( 1 , k) =di ( 1 , k) 

&+m7 ( j) * (hb (2, j, k) *f by-fbeta*sgby) 
di (2, k) =di (2, k) 

&+m7 ( j) * ( hb ( 2 , j,k) *gby-gbeta*sgby) 

if(j.eq.2)hb(2,j-l,k) =save ( 1, k) 
if(j.eq.2)hsb(2,j-l,k) =save (2, k) 
if ( j . eq. jmax-1) hb (2, j+1, k) =save (3, k) 
if ( j .eq. jmax-1) hsb (2, j+1, k) =save (4, k) 

5300 continue 

do 5320 m=l , 4 
e (m, kmax) =0 
es (m, kmax) =0 
5320 continue 

ds ( 1 , kmax) -1 . 0 

ds (2 , kmax) =ve (i, j ) /vinf 

if ( j . eq. 1 ) ds (2, kmax) =ve (i, 2) / (vinf *dy (1) ) 

if { j .eq. jmax) ds (2, kmax) =-ve (i, jmax-1) / (vinf *dy ( jmax-1 ) ) 

do 5340 m=l , 2 
hn (m, j , 1) =0 
hsn (m, j , 1) =0 
5340 continue 
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c 

c To solve the block tridiagonal matrix equation, call ntrid 

c 

call ntrid 

c do 33 k=l , kmax 

c 33 write { 6, * ) ' corr i, j , k=' , i, j , k, ' hl = ' , hn ( 1 , j , k) , ' h2=' , hn (2 , j , k) 

return 

end 
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C####################################################################### 


subroutine correng 

include 'comblck' 

he=cp*te (i, j)+0.5*cavd(i, j) **2 

do 7151 k=2 , kmax- 1 

bcom (k) =0.5* (bcb ( j, k) +bcb ( j , k-1 ) ) / (pr * (dzeta (k) +dzeta (k-1 ) ) 

& *dzeta (k-1) ) 

doom (k) =-0.5* (bcb ( j, k) +bcb ( j , k+1) ) / (pr* (dzeta (k) tdzeta (k-1) ) 

& *dzeta (k) ) 

& -0.5* (bcb ( j , k) tbcb ( j , k-1) ) / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k-1) ) 
& -ml 0 ( j ) *hb ( 1 , j , k ) / dx 

acom (k) =0 . 5* (bcb ( j , k) +bcb ( j , k+1) ) / (pr* (dzeta (k) tdzeta (k-1) ) 
&*dzeta (k) ) 

fbeta= ( (dzeta (k-1) /dzeta (k) ) * (hb (1, j, k+1) -hb (1, j, k) ) + (dzeta (k) 

& /dzeta (k-1) ) *(hb <1, j, k) -hb (1, j, k-1) ) ) / (dzeta (k) tdzeta (k-1) ) 

gbeta= ( (dzeta (k-1) /dzeta (k) ) * (hb (2 , j , k+1) -hb (2 , j, k) ) + (dzeta (k) 

Sc /dzeta (k-1 ) ) * (hb (2 , j , k) -hb (2, j, k-1) ) ) / (dzeta (k) tdzeta (k-1) ) 
ebeta= ( (dzeta (k-1) /dzeta (k) ) * (hb (3, j , k+1 ) -hb (3, j, k) ) + (dzeta (k) 

& /dzeta (k-1) ) * (hb (3 r j, k) -hb (3, j, k-1) ) ) / (dzeta (k) +dzeta (k-1) ) 

if ( j .eq. 1 .or . j .eq. jmax) then 

sgby=0 . 

eby=0 . 

go to 322 

endif 

sgby= ( (dy(j-l) /dy(j) ) * (hsb(2, j+1, k) -hsb (2 , j , k) ) 

&+ (dy ( j ) / dy ( j - 1 ) ) * (hsb (2, j,k) -hsb (2, j-l,k) ) ) / (dy ( j) +dy ( j-1) ) 
if ( j . eq. 2) sgby= { (dy ( j-1) /dy ( j) S * (hsb (2, j+1, k) -hsb (2, j, k) ) 

&+<dy< j) /dy( j-1) ) *hsb(2, j,k) ) / (dy ( j) +dy ( j-1) ) 

if ( j . eq. j max-1 ) sgby= ( (dy (j-1) /dy ( j ) ) * (-hsb (2, j , k) ) 

&+ (dy ( j) /dy ( j-1) ) * (hsb(2 f j,k) -hsb (2, j-1, k) ) ) / (dy ( j ) +dy ( j-1 ) ) 
eby=( (dy ( j-1) /dy ( j ) ) * (hb (3, j+l,k> -hb(3, j,k) ) 

&+ (dy ( j) /dy ( j-1) ) * (hb (3, j , k) -hb (3, j-1, k) ) ) / (dy ( j) +dy ( j-1) ) 

322 if (kterm.eq. 1 . and. j .eq. jmaxt ) then 

sgby= (3 . *hsb(2 f j, k) -4 . *hsb (2, j-1, k) +hsb(2, j-2,k) ) / (2 . *dy ( j-1) ) 
eby= (3 . *hb (3, j,k) -4.*hb(3, j-l,k)+hb(3, j-2, k) ) / (2 . *dy ( j-1) ) 
endif 

cfbeta=hb (1, j , k) *fbeta* (bcb ( j, k+1) -bcb ( j , k-1) ) / (dzeta (k) 

& +dzeta (k-1) ) +bcb ( j , k) *fbeta**2+bcb ( j, k) *hb ( 1, j , k) *2 . 

&* ( (hb (1, j, k+1) -hb (1, j, k) ) /dzeta (k)-(hb(l,j,k) -hb (1, j, k-1) ) 

&/dzeta (k-1) ) / (dzeta (k) +dzeta (k-1) ) 

cgbeta=hb (2, j, k) *gbeta* (bcb ( j , k+1) -bcb ( j, k-1) ) / (dzeta (k) 

& +dzeta (k-1) ) +bcb ( j , k) *gbeta**2+bcb ( j , k ) *hb (2, j, k) *2 . 

&* ( (hb (2, j, k+1) -hb (2, j , k) ) /dzeta (k) - (hb (2, j, k) -hb (2, j , k-1) ) 

&/dzeta (k-1) ) / (dzeta (k) +dzeta (k-1) ) 

c fgb=hb ( 1, j , k) *gbeta* (bcb { j , k+1) -bcb ( j , k-1) ) / (dzeta (k) 

&+dzeta (k-1) ) +bcb ( j, k) *fbeta*gbeta+bcb ( j, k) *hb (1, j , k) *2 . 

&* ( (hb (2, j , k+1) -hb (2, j, k) ) /dzeta (k)-(hb(2,j,k) -hb (2, j , k-1) ) 

&/dzeta (k-1) ) / (dzeta (k) tdzeta (k-1) ) 

cgfb=hb (2, j , k) *fbeta* (bcb ( j , k+1) -bcb ( j, k-1) ) / (dzeta (k) 
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& +dzeta (k-1) ) +bcb ( j , k) *f beta*gbeta+bcb ( j , k) *hb (2, j , k) *2 . 

&* ( (hb(l, j,k+l) -hb(l, j,k) ) /dzeta (k) - (hb(l, j, k) -hb(l, j r k-1) ) 

&/dzeta (k-1) ) / (dzeta (k) tdzeta (k-1) ) 

if ( j . eq. 1 . or . j . eq. jmax) cgbeta=0 . 
if ( j .eq. 1 . or . j . eq. jmax) cfgb=0 . 
if ( j . eq. 1 . or . j . eq. jmax) cgfb-0 . 

ccom ( k) =-0 . 5* (bcb( j, k)+bcb( j,k+l) ) * (h ( 3 , j , k+1 ) 

&-h (3, j , k) ) / (pr* (dzeta (k) tdzeta (k-1) ) *dzeta (k) ) 

& +0.5* (bcb ( j f k) +bcb( j f k-1) ) * (h ( 3, j , k) -h (3, j, k-1) ) 

& / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k-1) ) 

&- (ml (j) *hsb ( 1 , j , k) +m6 ( j ) *hsb (2 , j , k) ) *ebeta 

& -ue (i, j) **2* (l.-l. /pr ) * (cfbetat { vinf /ue (i, j ) ) **2*cgbeta+vinf 
&*costh (i, j ) * (cfgb+cgfb) /ue (i, j ) ) /he 

& -mlO (j) * (hb ( 1 , j , k) *h (3, j , k) -ebeta* (hs ( 1, j , k) -hsp ( 1, j , k) ) ) /dx 
& +m7 ( j ) * (hb (2 , j , k) *eby-ebeta*sgby ) +ml3 { j ) *ebeta 

c write (1,*) 'i,k,j = ',i,k, j, ' corr' , cfbeta, cgbeta, cfgb, cgfb, ccom (k) 

7151 continue 

ccom (kmax-1 ) =ccom ( kmax-1 ) -acorn (kmax-1 ) 

if (kaw.eq. 1) dcom(2) =dcom(2) -bcom(2) * (dzeta (1) tdzeta (2) ) **2 
& / (dzeta (1) **2- (dzeta ( 1 ) tdzeta (2) ) **2) 

c for the exact adiabatic wall b.c. 

if (kaw . eq . 1) ccom (2 ) =ccom (2 ) -0 . 5*acom (2 ) * ( (dzeta (1) tdzeta (2 ) ) **2 
&* (hb(l f j, 2) **2*cavd(i, j) **2 ) -dzeta ( 1 ) **2*hb(l f j, 3) **2 
&*cavd (i, j) **2) / (he* (dzeta (1) **2- (dzeta ( 1 ) tdzeta (2) ) **2) ) 

if (kaw.eq. 1 ) acorn (2 ) =acom (2 ) tbcom (2 ) *dzeta (1) **2/ (dzeta (1) **2 
& - (dzeta (1) tdzeta (2) ) **2) 

if (kaw . eq. 0 ) ccom (2 ) =ccom (2 ) -bcom (2 ) *cp*twall (i, j ) /he 

call sy (2 , kmax-1 , bcom, dcom, acorn, ccom) 

do 7152 k=2, kmax-1 
h (3, j , k) =ccom (k) 

7152 continue 

h ( 3 , j , kma x ) = 1 . 

if (kaw.eq. 1) h (3, j , 1 ) = (dzeta ( 1 ) **2*h (3, j, 3) - (dzeta ( 1 ) tdzeta (2) ) **2 
& *h (3, j, 2) ) / (dzeta (1) **2- (dzeta (1) tdzeta (2) ) **2) 
if (kaw.eq. 0) h (3, j, 1) =cp*twall (i, j) /he 

c do 33 k=l,kmax 

c 33 write ( 6, *) ' corr i, j , k=' , i, j / k, ' h3 = ' , h (3, j , k) 
do 7153 k=l,kmax 

td(j,k) = (he*h(3, j,k)-0.5*( <ue<i, j) 

&*h (1, j, k) ) * *2+ { vinf *h (2, j , k) ) **2 + 2 . *ue (i, j) *vinf*h (1, j, k) 

&*h (2, j, k) *costh (i, j) ) ) /cp 

if (j.eq.l.or.j.eq. jmax) td(j,k) = (he*h(3, j,k)-0.5* (ue(i, j) 

&*h ( 1, j , k) ) **2 ) /cp 

if (td(j,k) .lt.0)then 

write(6,*)' td(j,k) is It . 0 at i=',i,' j = ' , j k= f ,k 

iend=l 

return 

endif 

7153 continue 
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do 7154 k=l , kmax 

roero ( j, k) =td( j, k) /te (i, j) 

if (mks .eq. l)bc ( j, k) = (te (i, j) /td( j, k) ) * ( (1. 8*td( j, k) ) **1 . 5) 

&* (1.8*te(i, j) +198.6) / ( (1.8*td( j,k) +198.6) *( (1.8*te(i, j) ) **1.5) ) 
if (mks .eq. 0) be (j,k)=(te(i,j) /td( j, k) )*(td(j,k)**1.5)*(te(i,j) 
&+198 . 6) / ( <td( j,k) +198 . 6) * (te (i, j) **1.5) ) 

7154 continue 

return 

end 


72 


c ####################################################################### 


subroutine inbub 

c ########################### ############ ################################ 
include 'comblck' 

c to calculate initial velocity profile at i=l 

do 35 j=l,jmax 
xp=xpd(l, j) 
yp=ypd ( 1 , j ) 
zp=zpd ( 1 , j) 

ystar=yp 

xstar=cos (thetar) * (zp-zps) -sin (thetar) * (xp-xps) 

if ( j . eq . 1 . or . j . eq. jmax) go to 81 
do 8 k=l , kmax 

h (1, j,k)=(-astar*xstar*hn(l, 1 , k) *cos (yd { j ) ) +bstar*ystar *hn (2 , 1 , k) 
&*sin (yd ( j ) ) ) / (-astar*xstar*cos (yd( j) ) +bst ar*ystar*sin (yd( j) ) ) 
h (2 , j, k) = (astar*xstar*hn(l, 1 , k) *sin (yd ( j ) ) tbs tar *y star 
&*hn (2,l,k)*cos(yd(j))) /vinf 

hs (1, j, k) = (-astar*xstar*hsn (1, 1, k) *cos (yd ( j) ) +bstar*ystar 
&*hsn (2, 1 , k) *sin (yd ( j ) ) ) 

&/ (-astar*xstar*cos (yd( j) ) tbstar *yst ar *sin (yd( j) ) ) 

hs ( 2 , j, k) « (astar*xstar*hsn(l, l,k) *sin (yd ( j) ) +bstar*ystar 
&*hsn(2, 1, k) *cos (yd( j) ) ) /vinf 
8 continue 

go to 135 

81 do 82 k=l, kmax 

h ( 1, j, k) =hn (1, 1, k) 
hs ( 1, j , k) =hsn (1, 1, k) 

h (2, j , k) = (-astar*abs (xstar) *hn ( 1, 1, k) +bstar*h2 (1, j) *hn ( 2 , 1, k) ) 

& /vinf 

hs (2, j , k) =(-astar*abs (xstar) *hsn (1, 1, k) +bstar*h2 ( 1, j) *hsn (2, 1, k) ) 
& / vinf 

82 continue 

135 do 140 k=l,kmax 

h (3, j , k) =h ( 3 , 1, k) 

he=cp*te ( 1 , j ) +0 . 5*cavd (1, j ) **2 

td ( j, k) = (he*h (3, j,k) -0 .5* (cavd(l, j) *h(l, j,k) ) **2) /cp 
roero ( j , k) =td (j,k)/te(l,j) 

if(mks.eq.l)bc(j,k)=(te(l,j)/td(j,k))*((l . 8*td (j,k) ) **1.5) 

& * (1 . 8*te (1, j) +198 . 6) / ( (1 ,8*td( j,k) +198.6) * ( (1.8*te(l, j) ) **1 .5) ) 
if (mks . eq .0)bc (j,k)=(te (1, j) /td(j,k) ) * (td ( j , k) **1 . 5) * (te ( 1, j ) 

& +198.6) /( (td(j,k) +198.6) * (ted, j) **1.5) ) 

140 continue 

35 continue 

return 
end 
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c####################################################################### 


subroutine inbus 

c####################################################################### 
include 'comblck' 

c to calculate initial velocity profile at i=l 

do 35 j=l,jmax 
xp=xpd ( 1 , j ) 
yp=ypd ( 1 , j) 
zp=zpd ( 1, j) 

ystar=yp 

xstar=cos (thetar) * (zp-zps) -sin (thetar) * (xp-xps) 

if ( j . eq . 1 . or . j . eq . jmax) go to 81 
do 8 k~l , kmax 

h(l,j,k) = (hn(l,l,k) +hn { 2, 1, k) *cs tar* *2* (ystar/xstar ) **2) 

& / (1 .+cstar**2* (ystar/xstar) **2) 

hs ( 1 f j, k) = (hsn (1, 1, k) +hsn (2 , 1, k) *cstar**2* (ystar/xstar) **2 ) 

& /(l.+cstar**2* (ystar/xstar) **2) 

h (2, j , k) =bstar*xstar*ystar* (hn (1, 1, k) -hn (2, 1, k) ) / (vinf 
& *sqrt (xstar **2+cstar**2*ystar**2) ) 

hs (2 f j , k) =bstar *xstar*ystar * (hsn { 1, 1, k) -hsn (2 , 1 , k) ) 

& / (vinf*sqrt (xstar **2+cstar**2*ystar**2 ) ) 

8 continue 

go to 135 

81 do 82 k=l r kmax 
h(l, j,k)=hn<l,l,k) 
hs (1, j , k) =hsn (1, 1, k) 

h (2 , j , k) =h2 ( 1, j ) *bstar* (hn (2 , 1 , k) -hn (1, 1, k) ) /vinf 
hs(2 f j,k) =h2 ( 1, j ) *bstar* (hsn (2, 1, k) -hsn ( 1, 1, k) ) /vinf 

82 continue 

135 do 140 k=l, kmax 
h(3, j,k)=h(3, l,k) 
he=cp*te (I# j) +0 . 5*cavd (1, j ) **2 

td ( j , k) = (he*h (3, j , k) -0.5* (cavdfl, j) *h(l, j,k) ) **2) /cp 
roero ( j, k) =td( j, k) /te (1, j) 

if <mks.eq.l)bc(j,k) = (te<l, j) /td(j,k) > * < <1 . 8*td< j,k) ) **1.5) 

& * (1 . 8*te (1, j) +198 . 6) / ( (1 . 8*td( j,k) +198 . 6) * ( (1 . 8*te (1, j) ) **1 .5) ) 
if (mks.eq.0)bc< j,k) = (te(l, j) /td ( j , k) ) * (td ( j , k) **1 . 5) * (te ( 1, j ) 

& +198.6) /( (td( j, k) +198 . 6) * (te ( 1, j ) **1 . 5) ) 

140 continue 

35 continue 

return 
end 
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C###################################################### # # ## #### ## # # # #### 

subroutine inpos 

C######################## ####################################### ######## 

include ' comblck' 

c to calculate initial velocity profile at i=l based on the 

c streamline coordinate system 

do 35 j=2, jmax-1 

do 8 k=l f kmax 
hlt=h (1, j, k) 
hslt=hs ( 1, j , k) 
h2t=h (2 , j , k) 
hs2t=hs (2, j, k) 

h(l,j,k) = (ue(l,j) * *2 *hlt+ve (1, j) *vinf *h2t) 

&/ (ue (1, j) **2+ve (1, j) **2) 

hs { 1, j,k) = (ue(l,j) **2 *hslt+ve (1, j) *vinf*hs2t) 

&/ (ue (1, j) **2+ve <1, j) **2) 

h (2, j f k) = (ue <1, j) *vinf*h2t-ue (1, j) *ve (1, j) *hlt) 

&/ (vinf *sqrt (ue ( 1 , j ) **2+ve (1, j ) **2 ) ) 

hs (2, j , k) = (ue ( 1, j ) *vinf *hs2t-ue ( 1 , j) *ve (1, j) *hslt) 

&/ (vinf *sqrt (ue (1, j) **2+ve (1, j) **2) ) 
c write ( 6 , *) ' inpos , j , k =' , j , k, ' hl=' , h ( 1 , j , k) 

8 continue 

35 continue 

do 9 k=l , kmax 

h(2, l r k)«h(2,2,k> /dy (1) 

hs (2, l f k) =hs (2, 2, k) /dy (1) 

h (2 , jmax, k) -h (2, jmax-1 , k) /dy ( jmax-1 ) 

hs (2, jmax, k) =hs (2 , jmax-1 , k) / dy ( jmax-1) 

9 continue 
return 
end 
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c####################################################################### 


subroutine input 

c####################################################################### 
include 9 comblck' 

mks = l 

inc=0 

kpoint=0 

kbody=l 

kcpgivn=l 

kmax=l 6 

kaw=l 

krow=0 

ksymstg=l 

iw=80 

ini=50 

jni=l 

gamma=l . 4 

if (mks . eq. 0) rr=1716 . 
if {mks . eq . 1 ) rr-2 87 . 

pr=0 . 72 

rminf =0 . 3 

pinf =1 0 132 4 

tinf =2 8 8 . 

ukmaxl~0 .9995 

c read the boundary-layer edge conditions from either BCC or SCC 

if (kbody .eq. 1) then 

if (kpoint . eq. 1 . or . ksymstg . eq. 1 ) go to 33 
rewind 25 

read (25, 1112) xps, zps, thetar, astar, bstar, cs tar 
33 rewind 22 

read (22,463) imax, jmax 
read(22,461) (xd (i) , i=l, imax) 
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read (22 , 461) (yd ( j) , j=l, jmax) 
do 60 i=l,imax 
do 60 j = l, jmax 

read (22, 4 62) itr, itr,xpd(i, j) , ypd (i, j) , zpd(i, j),sl(i,j),ue(i,j) 
&, ve (i, j) ,hl (i, j) , h2 (i, j) , costh (i, j) ,cpd<i, j) 

60 continue 
4 61 f ormat (5 ( lx, el 3 . 6) ) 

4 62 format (2 i4 , 5 ( lx, el3 . 6 ) / 8x, 5 { lx, el3 . 6 ) ) 

463 format (2il0) 

go to 1115 
endif 

if (kbody .eq. 0) then 
rewind 25 

read (25, 1112 ) xps , zps, thetar, as tar , bstar, cstar 

read (25, 463) imax, jmax 

read(25,461) <xd (i) , i=l , imax) 

read(25,461) (yd ( j ) , j=l , jmax) 

do 160 i=l,imax 

do 160 j=l , jmax 

read (25, 4 64) itr, itr,xpd(i, j) , ypd(i, j) , zpd(i, j),sl(i,j),ue(i,j) 
&, ve (i, j) ,h2 (i, j) , cpd(i, j) 

160 continue 

4 64 f o rma t ( 2 i 4 , 4 (lx,el4.7) / 8 x , 4 ( 1 x , e 1 4 . 7 ) ) 

1112 format (6el3 . 6) 
endif 

1115 continue 

c zeta distribution is specified 

dzetas=0 . 2 
zeta ( 1) =0 . 
dzeta (1) =dzetas 
do 25 k=2,kmaxf 
dzeta (k) =dzetas 

c dzeta (k) =dzeta (k-1) *1 . 05 

zeta (k)=zeta ( k-1 ) tdzeta ( k) 

25 continue 

c wall condition is given if necessary 

if (krow.eq. 0 . and. kaw.eq. 1) return 
if (krow . eq . 0 ) go to 270 
do 176 1=1, imax 
do 176 j=l, jmax 
roww ( i , j ) =0 .001 
176 continue 

270 if (kaw . eq . 1 ) return 

do 276 i=l,imax 
do 27 6 j = l , jmax 
twall (i, j) =309.7 
276 continue 

return 

end 
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c############## ######################################################### 


subroutine insym 

c####################################################################### 
include 'comblck' 

c to calculate initial velocity profile at i=l 

do 35 j = l, jmax 

do 8 k=l,kmax 

h(l, j,k)«hn<l, l,k) 

h (2, j,k) =hn (2,1, It) *ve (i, j) /vinf 

hs (1, j,k) =hsn (1, l,k) 

hs (2, j, k) =hsn (2, 1, k) *ve (i f j ) / vinf 

h(3 f j,k)-h<3, l,k) 

he=cp*te (1, j) +0 . 5*cavd(l, j) **2 

td( j,k) = (he*h<3, j,k) -0.5* (cavd(l f j) *h (1, j , k) ) **2) /cp 
roero( j,k)=td( j,k) /te (1, j) 

if (mks .eq. 1) be ( j, k) = (te (1, j) /td ( j, k) ) * { (1 . 8*td { j, k) ) **1 . 5) 

& * (1 . 8*te (1, j) +198 . 6) / ( (1 . 8*td( j,k) +198 . 6) * ( (1. 8*te (l f j) ) **1.5) ) 
if (mks .eq. 0) be ( j, k) = <te (1, j ) /td ( j , k) ) * (td ( j , k) **1 . 5) * (te (1, j) 

& +198 . 6) / ( (td( j,k) +19 8 . 6) * (te (1, j) **1 .5) ) 

8 continue 

35 continue 

return 
end 
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C####################################################################### 


subroutine ntrid 

c (block tridiagonal matrix eqn . solver) 

C####################################################################### 
include 'comblck' 

dimension r ( 4 , kmaxf ) , pil ( 4 , kmaxf ) , p (4, kmaxf ) , den (kmaxf ) 

&, cds (2, kmaxf) 

do 10 k=kmax-l, 2, -1 
do 20 m=l,2 
do 20 1 j=l , 2 
l=m+2* (lj-1) 

r <l,k) =as (1, k) -ci (m,k) *es (2*1 j-1, k+1) -ci (m+2,k) *es (2*1 k+1) 

p (1, k) =bi (1, k) -ci (m, k) *e (2*1 j-1, k+1 ) -ci (m+2,k) *e (2*1 j, k+1) 

&+r (l,k) *dzeta (k-1) 12. 

20 continue 

c invert matrix p 

den (k) =p ( 1, k) *p(4,k) -p(2,k) *p(3,k) 

pil ( 1 , k) =p ( 4 , k) / den (k) 

pil(2,k)=-p(2,k)/den(k) 

pil (3, k) =-p (3, k) /den (k) 

pil (4, k) =p (1, k) /den (k) 

do 30 m=l,2 

cds (m, k) =ci (m, k) *ds (1, k+1) +ci (m+2, k) *ds (2, k+1) +di (m, k) 

30 continue 

do 4 0 m- 1 , 2 

ds (m, k) =pil (m, k) *cds (1, k) +pil (m+2, k) *cds (2, k) 

40 continue 

do 50 m= 1 , 2 
do 50 1 j=l, 2 
l=m+2 . * (lj-1) 

es (1, k) =-pil (m, k) *r (2*1 j-l,k) -pil (m+2 / k) *r (2*1 j, k) 
e (1, k) =pil (m, k) *ai(2*lj-l,k)+pil (m+2, k) *ai (2*1 j , k) +es (l,k) 

& *dzeta (k-1) /2 . 

50 continue 

10 continue 

do 60 k=2 , kmax 
do 60 m=l , 2 

hn (m, j, k) =e (m, k) *hn (1, j, k-1) +e (m+2, k) *hn (2, j, k-1) 

& +es (m, k) *hsn (1, j, k-1) +es (m+2,k) *hsn (2, j,k-l) +ds (m, k) 

hsn (m, j , k) =hsn (m, j , k-1 ) + (hn (m, j , k) +hn (m, j , k-1 ) ) *dzeta (k-1) /2 . 

60 continue 

return 
end 
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c####################################################################### 


subroutine output 

c####################################################################### 
include 'comblck' 
il=i 

if (il . gt . imax) il=imax 

rewind 30 
write ( 30 , * ) 9 9 

write (30, *) ' ' 

write (30 , *) 9 ' 

write (30,*)' ' 

(30, * ) ' ********** input echo ************************ 
write (30 , * ) 9 
write (30 , *) ' mks=' , mks 
write (30, *) ' inc=' , inc 
write ( 30 , * ) 9 kpoint =/ , kpoint 
write (30, *) 9 kbody= r , kbody 
write ( 30 , * ) 9 kcpgivn=' , kcpgivn 
write ( 30 , * ) 9 kmax= f , kmax 
write ( 3 0 , * ) 9 kaw=' , kaw 
write (30, *) 9 krow=' , krow 
write ( 30 , *) ' ksymstg=' , ksymstg 
write (30, *) 9 iw= f , iw 
write (30 , *) 9 ini=' , ini 
write (30 , *) 9 jni=' , jni 
write (30, *) r gamma=' , gamma 
write (30, *) ' rr=' , rr 
write ( 30 , * ) ' pr= f , pr 
write (30, *) ' rminf-' , rminf 
write (30 , *) ' pinf =' , pinf 
write (30, *) 'tinf=' ,tinf 
write ( 30 , * ) 9 ukmaxl=' , ukmaxl 

write (30 , *) 9 ' 

write (30, *) ' ********** other free-stream conditions ********** f 

write ( 30 , * ) 9 9 

write (30 , *) 9 cp= ' , cp 

write (30 , *) 9 roinf=' , roinf 

write (30 , *) 9 rmyuinf=' , rmyuinf 

write (30, *) 9 rnuinf=' , rnuinf 

write ( 30 , * ) ' ss= r , ss 

write ( 30 , * ) 9 vinf= f , vinf 

write (30 , *) 9 9 

write (30 , *) 9 ********************* 
write (30 , *) 9 9 

write (30, *) ' il=' , il 
write (30 , *) 9 jmaxl= f , jmaxl 

write (30 , *) 9 9 

if (ksep .eq. 0) write (30, *) ' the flow is not separated yet 9 
if (ksep . eq. 1) write (30 , *) ' the flow is separated at i=' , il 
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write (30, *) ' ' 

write (30, *) ' ******* velocity profiles ********** ' 

do 400 j=l , jmax 

write ( 30 , * ) ' ' 
write (30 , * ) ' ' 

write (30 , 401) il, j, xpd (il, j ) , ypd (il, j ) , zpd ( il, j ) 

401 format ( f i=' , i5, 3x, ' j=' , i5, 3x, ' (xp=' , f 10 . 4, 2x, ' yp=' , f 10 . 4, 

&2 x, ' zp— ' , f 10 . 4, ' ) ' ) 

write ( 30 , * ) ' ' 

if ( j . eq . 1 . or . j .eq . jmax) then 

write (30, 402 ) 

402 format (2 (3x, ' k' , 2x, ' zeta' , 4x, ' u/ue' , 3x, ' vy/vinf ' , 4x, ' t /te' ) ) 
else 

write (30, 403) 

403 format (2 (3x, ' k' ,2x, 9 zeta' , 4x, 'u/ue' , 4x, ' v/vinf ' , 4x, ' t /te' ) ) 

endif 

write (30 , * ) ' ' 

write (30, 404) (k, zeta (k) ,h(l, j,k) ,h(2, j,k) , roero ( j , k) , k=l, kmax) 

400 continue 

404 format (2(lx,i3,f6.2,f9.5,el0.3,f7.4) ) 

write ( 30 , * ) ' ' 

wr ite ( 30 , *)'****** * boundary-layer parameters********** ' 

write ( 30 , * ) ' ' 

if (kaw . eq . 0 ) write ( 30 , 40 5) 

405 format (3x, 'i',lx,2x, ' j' , 6x, ' xpd' , llx, ' ypd' , llx, ' zpd' , llx, ' cfx' 

& , llx, ' cfy' , / 1 4x, ' blth' , lOx, ' dspth' , 9x, ' thmom' , lOx, 9 qw' ) 

if (kaw. eq. l)write(30,406) 

40 6 format (3x, 9 i 9 , lx,2x, ' j' , 6x, ' xpd' , llx, ' ypd' , llx, ' zpd' , llx, 'cfx' 

&, llx, 'cfy' , /14x, ' blth' , lOx, ' dspth' , 9x, ' thmom' , 8x, ' twall' ) 
write { 30 , * ) ' ' 

do 560 i-l,il 
do 560 j=l, jmax 

if (kaw . eq . 0 ) write (30,561)i,j, xpd ( i, j ) , ypd ( i , j ) , zpd (i,j),cfx(i,j) 
&, cfy (i, j) , blth (i, j) , dspth (i, j ) , thmom (i, j) , qw (i, j) 

if (kaw.eq. 1) write (30, 561) i, j, xpd (i, j) , ypd(i, j) , zpd (i, j ) , cfx (i, j) 
& , cfy (i, j ) , blth (i, j ) , dspth (i, j ) , thmom ( i, j ) , twall (i, j ) 

560 continue 

5 61 format ( 2 i 4 , 5 (lx,el3 . 6) / 8x, 4 (lx,el3.6) ) 

c rewind 40 

c do 41 i=l f il 

c do 41 j=l, jmax 

c write (40 ,*) twall (i, j ) 

c 41 continue 

return 

end 
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c####################################################################### 


subroutine predict 

include 'comblck' 
dimension tb ( jmaxf , kmaxf ) 

he=cp*te (i, j ) +0 . 5*cavd (i, j ) **2 

255 do 257 k=l,kmax 
bl ( j, k)=bc{ j, k) 
b2 ( j,k>«0. 
b3 ( j , k) =0 . 
b4 ( j,k)=bc(j,k) 

257 continue 


c 

c to calculate ai, bi, ci, ai, and di 

c 


256 do 5110 k=2 , kmax-1 

de=dzeta (k) -fdzeta (k-1) 

ai (1, k) =- (bl ( j, k) +bl ( j, k-1) ) / (de*dzeta (k-1) ) 
ai (2, k) =- {b2 ( j, k) +b2 ( j, k-1) ) / (de*dzeta (k-1) ) 
ai ( 3, k) =- (b3 ( j , k) +b3 ( j , k-1 ) ) / (de*dzeta (k-1) ) 
ai (4, k)«- (b4 ( j, k) +b4 ( j, k-1) ) / (de*dzeta (k-1) ) 

ci (1, k) =- (bl ( j, k) +bl ( j, k+1) ) / (de*dzeta (k) ) 
ci (2, k)=- (b2 ( j , k) +b2 ( j, k+1) ) / (de*dzeta (k) ) 
ci ( 3 , k) =- (b3 ( j f k) +b3 { j, k+1) ) / (de*dzeta (k) ) 
ci (4, k) =- <b4 ( j, k) +b4 ( j, k+1) ) / (de*dzeta (k) ) 

bi (1, k) =- ( (bl ( j,k)+bl ( j,k+l) ) /dzeta (k) + (bl ( j, k) +bl ( j, k-1) ) 

& /dzeta (k-1) ) /de-mlO ( j ) *h ( 1, j , k) /dxh 

bi (2, k) — ( (b2 ( j, k) +b2 ( j,k+l) ) /dzeta (k) + (b2 ( j r k) +b2 ( j, k-1) ) 

& /dzeta (k-1) ) /de 

bi (3, k) =- ( (b3 ( j , k) +b3 ( j, k+1) ) /dzeta (k) + (b3 ( j , k) +b3 < j,k-l) ) 

&/dzeta (k-1) ) /de 

bi (4,k)=-< (b4 ( j, k) +b4 ( j,k+D ) /dzeta (k) + (b4 ( j, k) +b4 ( j, k-1) ) 

& /dzeta (k-1) ) /de-mlO ( j) *h (1, j, k) /dxh 

feta= (h ( l r j , k+1) -h ( 1 f j , k-1 ) ) / (dzeta (k) +dzeta (k-1) ) 
geta= (h (2, j,k+l) -h (2, j f k-1) ) / (dzeta (k) +dzeta (k-1) ) 

as ( 1, k) =mlO ( j ) * feta /dxh 
as {2, k) =ml0 ( j ) *geta/dxh 
as (3, k) -0 
as (4,k)=0 

di(l f k)=-ml( j) *hs (1, j f k) *feta+m2 (j) *h(l f j, k) **2+m5 ( j ) *h (1, j , k) 

&*h (2 , j , k) -m6 ( j ) *hs (2, j , k) *feta+m8 ( j ) *h (2 f j, k) **2 -mil ( j ) *roero ( j , k) 
&+ml3 ( j ) *f eta 

di (2, k) =-ml ( j ) *hs (1, j, k) *geta+m4 (j)*h(l,j,k)*h(2,j,k) 
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&+m3 ( j) *h (2, j, k) **2-m6 ( j ) *hs (2, j , k) *geta+m9 (j)*h(l,j,k)**2 
&-ml2 ( j ) *roero { j , k) +ml3 ( j ) *geta 

if ( j .eq. 1 . or . j .eq. jmax) go to 9500 

db=dy ( j ) +dy { j - 1 ) 

if { j .eq.2) save <1, k) =h (2, j-1, k) 
if ( j . eq. 2 ) save (2 , k) =hs (2 , j-1 , k) 
if ( j . eq. jmax-1 ) save (3, k) =h (2 , j+1, k) 
if ( j .eq. jmax-1) save (4,k)=hs(2,j + l,k) 

if (j.eq.2)h(2, j-l,k)=0 
if{j.eq.2)hs (2 , j-1 , k) =0 
if ( j .eq. jmax-1) h(2, j+1, k) =0 
if ( j . eq . jmax-1 ) hs (2, j+1, k) =0 

f cap=h (1, j, k) 
sf cap=hs (1, j f k) 
gcap=h (2, j, k) 

fy= ( (dy ( j-1) /dy ( j) ) * (h (1, j+1, k) -h (1, j, k) ) 

&+<dy< j) /dy( j-1) > *<h(l, j,k)-h(l, j-l,k) ) ) /db 

sgy=( (dy( j-1) /dy( j) ) * (hs (2, j + l,k> -hs (2 , j , k) ) + (dy ( j ) 

&/dy ( j-1) ) * (hs (2, j,k) -hs (2, j-1, k) ) ) /db 
gy= ( (dy (j-1) /dy ( j) ) * (h (2, j+1, k) -h (2, j , k) ) 

& + (dy ( j ) / dy (j-1) )*(h(2,j,k)-h{2,j-l,k) ) ) /db 

if (kterm.eq. 1 . and. j .eq. jmaxt ) then 

fy= (3 . *h (1, j , k) -4.*h(l, j-l,k)+h{l, j-2,k) ) / (2.*dy( j-1) ) 
gy-(3.*h<2, j,k) -4.*h(2, j-1, k) +h (2, j-2, k) ) / (2 . *dy ( j-1) ) 
sgy=(3.*hs(2, j,k)-4.*hs (2, j-1, k) +hs (2, j-2, k) ) / (2 . *dy ( j-1) ) 
endif 

di (1, k) =di ( 1, k) +ml0 ( j ) *h ( 1, j , k) * (-fcap) /dxh 
&+ml0 ( j ) *feta*sf cap/ dxh+m7 (j) * (h(2, j,k) *f y-f eta*sgy ) 

di (2, k) =di (2, k) +ml0 (j)*h(l,j,k)* (-gcap) /dxh 
&+ml0 ( j ) *geta*sf cap/ dxh+m7 (j)*(h(2 f j,k) *gy-geta*sgy) 

if ( j .eq. 2)h(2, j-1, k) =save (1, k) 
if ( j .eq.2) hs (2, j-1, k) =save (2, k) 
if ( j .eq. jmax-1) h (2, j+1, k) =save (3, k) 
if ( j . eq . jmax-1 )hs (2, j + l,k) =save ( 4 , k) 

go to 5110 

9500 di (1, k) =di ( 1 , k) +ml0 ( j) *h (1, j,k) * (-h (1, j, k) ) /dxh 
&+ml0 (j) *hs (1, j,k) * feta /dxh 

di (2, k) =di (2 , k) +ml0 ( j ) *h (1, j , k) * (-h (2, j , k) ) /dxh 
&+ml0 (j) *hs (1, j , k) *geta/dxh 

5110 continue 

do 5140 m=l , 4 
e (m, kmax) =0 
es (m, kmax) =0 
5140 continue 

ds ( 1 , kmax) =1.0 

ds (2, kmax) =ve (i, j) /vinf 
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if ( j . eq. 1 ) ds (2, kmax) =ve {i, 2 ) / { vinf *dy (1) ) 
if ( j -eq. jmax) ds (2, kmax) =-ve (i, jmax-1) / { vinf *dy { jmax-1 ) ) 
do 5160 m=l, 2 
hn (m, j f 1) =0 
hsn (m, j, 1) =0 
5160 continue 


To solve the block tridiagonal matrix equation, call ntrid 


call ntrid 

do 5200 k=l , kmax 
do 5200 m=l,2 
hb (m, j, k) =hn (m, j, k) 
hsb (m, j , k) =hsn (m, j , k) 

5200 continue 

if ( inc . eq. 1 ) then 
do 5250 k=l,kmax 
hb (3, j , k) =1 . 0 
roerob ( j , k) =1 . 0 
bcb { j, k) =1 . 0 
5250 continue 
return 
endif 

do 6151 k=2 , kmax- 1 

bcom(k) = (be ( j, k) +bc ( j, k-1) ) / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k-1) ) 
dcom(k) =- (be ( j, k) +bc ( j, k+1) ) / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k) ) 

& - (be ( j, k) +bc ( j, k-1) ) / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k-1) ) 

& -mlO ( j) *h (1, j, k) /dxh 

acom(k) = (be ( j, k) +bc ( j, k+1) ) / (pr* (dzeta (k) +dzeta (k-1) ) *dzeta (k) ) 
feta= ( (dzeta (k-1) /dzeta (k))*(h(l,j, k+1) -h (1, j, k) ) + (dzeta (k) 

& /dzeta (k-1) ) * (h (1, j, k) -h (1, j, k-1) ) ) / (dzeta (k) +dzeta (k-1) ) 
geta= ( (dzeta (k-1) /dzeta (k) ) * (h (2, j, k+1) -h (2, j, k) )+ (dzeta (k) 

& /dzeta (k-1) ) * (h(2, j,k) -h(2, j , k-1) ) ) / (dzeta (k) +dzeta (k-1) ) 
eeta= ( (dzeta (k-1) /dzeta (k) ) * (h (3, j, k+1) -h(3, j, k) ) + (dzeta (k) 

& /dzeta (k-1) ) * (h (3, j,k) -h (3, j, k-1) ) ) / (dzeta (k) +dzeta (k-1) ) 

if(j.eq.l.or.j.eq. jmax) then 

sgy=0 . 

ey=0 . 

go to 222 

endif 

sgy= ( (dy ( j — 1 ) /dy( j) ) * (hs (2, j + 1, k) -hs(2, j, k) ) + {dy( j) 

&/dy ( j-1) ) * (hs (2, j, k) -hs (2, j-l,k) ) ) / (dy ( j) +dy ( j-1) ) 

if ( j . eq. 2 ) sgy= ( (dy ( j-1) /dy ( j) ) * (hs (2, j+1, k) -hs (2, j, k) ) + (dy ( j) 

&/dy ( j-1) ) *hs (2, j , k) ) / (dy ( j ) +dy ( j-1) ) 

if ( j .eq. jmax-1) sgy= ( (dy ( j-1) /dy ( j) ) * (-hs (2, j , k) ) + (dy ( j ) 

&/dy ( j-1) ) * (hs (2, j, k) -hs (2, j-l,k) ) ) / (dy ( j) +dy ( j-1) ) 
ey= ( (dy(j-l) /dy(j) ) * (h(3, j+1, k) -h (3, j, k) ) 

&+(dy ( j) /dy ( j-1) ) * (h(3, j,k) -h(3, j-l,k) ) ) / (dy ( j) +dy ( j-1) ) 

222 if (kterm.eq. 1 .and. j .eq. jmaxt) then 

sgy= (3 . *hs (2, j, k) -4 . *hs (2, j-1, k) +hs (2, j-2, k) ) / (2 . *dy ( j-1) ) 
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ey= (3.*h(3,j,k)-4.*h(3, j-l,k)+h(3, j-2,k) ) / (2 . *dy ( j -1 ) ) 
endif 

cf eta=h ( 1 , j , k) *feta* (be ( j , k+1) -be ( j , k-1) ) / (dzeta (k) tdzeta (k-1 ) ) 

& tbc ( j, k) *f eta* *2 tbc ( j , k) *h (1, j, k) *2 . * ( (h (1, j, ktl) -h <1, j, k) ) /dzeta 
& (k) - (h ( 1, j , k) -h(l,j,k-l) ) /dzeta (k-1 ) ) / (dzeta (k) +dzeta (k-1 ) ) 

cgeta=h (2, j, k) *geta* (be ( j, k+1) -be ( j, k-1) ) / (dzeta (k) +dzeta (k-1) ) 

& the ( j , k) *geta**2tbc ( j, k) *h (2, j , k) *2 . * { (h (2, j, k+1) -h (2, j, k) ) /dzeta 
& (k)-(h(2,j,k)-h(2, j, k-1) ) /dzeta (k-1) ) / (dzeta (k) + dzeta (k-1) ) 
cfg=h (1, j, k) *geta* (be (j, k+1) -be (j, k-1) ) / (dzeta (k) tdzeta (k-1) ) 

& +bc ( j, k) *feta*geta+bc ( j , k) *h (l r j, k) *2 . * ( (h (2, j, k+1) -h (2, j, k) ) 

& /dzeta (k) -{h(2 f j, k) -h (2, j, k-1) ) /dzeta (k-1) ) / (dzeta (k) tdzeta (k-1) ) 
cgf=h (2, j , k) *f eta* (be ( j , ktl ) -be ( j , k-1 ) ) / (dzeta (k) +dzeta (k-1 ) ) 

& +bc ( j, k) *f eta*geta+bc ( j , k) *h (2, j , k) *2 . * ( (h ( 1, j,k+l) -h (1, j, k) ) 

& /dzeta (k) - (h (1, j,k) -h (1, j, k-1) ) /dzeta (k-1) ) / (dzeta (k) +dzeta (k-1) ) 

if ( j . eq. 1 . or . j . eq. jmax) cgeta=0 . 
if ( j . eq . 1 . or . j . eq . jmax) cf g=0 . 
if ( j . eq . 1 . or . j . eq . jmax) cgf =0 . 
ecap=h (3, j , k) 
sfcap=hs ( 1 , j, k) 
sgcap=hs (2, j , k) 

ccom (k) =- (ml (j) *hs (1, j,k) +m6 (j)*hs{2,j f k)) *eeta 
& -ue (i f j) **2* (l.-l. /pr) * (efeta+egeta* (vinf/ue (i, j) ) **2+costh (i f j) 
&*vinf * (cfg+cgf ) /ue (i, j ) ) /he 

& -mlO (j)*(h(l,j,k) *ecap-eeta* (hsb ( 1 , j , k) -sf cap) ) /dxh 
& +m7 (j) *{h(2 f j r k) *ey-eeta*sgy ) +ml3 ( j ) *eeta 
C write ( 1, *) 'i,k, j = ' , i f k, j, ' pred' , cf eta, egeta, cfg, cgf , ccom (k) 

6151 continue 

ccom (kmax-1 ) =ccom (kmax-1 ) -acorn (kmax-1 ) 

if (kaw.eq. 1) dcom(2) =dcom(2) -bcom(2) * (dzeta (1) tdzeta (2) ) **2 
& / (dzeta (1) **2- (dzeta (1) tdzeta (2) ) **2) 

c for the exact adiabatic wall b.c. 

if (kaw.eq. 1) ccom (2) =ccom(2) -0 .5*acom(2) * ( (dzeta (1) tdzeta (2) ) **2 
&* (h(l, j, 2) **2*cavd (i, j) **2) -dzeta (1) **2*h(l f j, 3) **2*cavd(i, j) **2) 

Sc / (he* (dzeta (1) **2- (dzeta (1) tdzeta (2) ) **2) ) 

if (kaw.eq. 1) acorn (2) =acom(2) tbcom(2) *dzeta (1) **2/ (dzeta (1) **2 
& - (dzeta (1 ) tdzeta (2 )) **2 ) 

if (kaw.eq. 0) ccom (2) =ccom{2) -bcom(2) ,lr cp*twall (i, j) /he 

call sy (2 , kmax-1, bcom, dcom, a com, ccom) 

do 6152 k=2, kmax-1 
hb(3, j,k)=ccom(k) 

6152 continue 

hb (3, j , kmax) =1 . 

if (kaw.eq. 1) hb (3, j, 1)= (dzeta (1) **2*hb(3, j, 3) - (dzeta ( 1 ) tdzeta (2) ) 
&**2*hb (3, j, 2) ) / (dzeta (1) **2- (dzeta (1) tdzeta (2) ) **2) 
if (kaw.eq. 0) hb (3, j , 1) =cp*twall (i, j ) /he 

c do 6159 k=l,kmax 

c write (6,*)'i,j,k=',i,j,k,' hb3=' , hb (3, j, k) 

c 6159 continue 

do 6153 k=l,kmax 

tb(j,k) = (he*hb{3,j,k)-0.5* ( (ue(i, j) 

& *hb ( 1 , j , k) ) **2t (vinf *hb (2, j , k) ) **2t2 . *ue(i, j) *vinf*hb (1, j, k) 
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&*hb (2 , j , k) *costh (i, j) ) ) /cp 

if(j .eq.l.or.j.eq. jmax) tb ( j , k) = (he*hb ( 3, j, k) -0 . 5* (ue (i, j ) 
&*hb(l, j,k) ) **2 ) /cp 

roerob ( j , k) =tb ( j , k) /te (i, j ) 

if ( roerob ( j , k) . It. 0) then 

write < 6 , * ) ' roerob(j,k) is It . 0 at i=',i,' k=',k 

iend=l 

return 

endif 

6153 continue 

do 6157 k=l , kmax 

if (mks . eq. 1) bcb < j , k) = (te ( i, j)/tb<j,k))*((l. 8*tb (j,k) ) **1.5) 

& *<1.8*te(i, j) +198.6) /( <1.8*tb(j, k) +198.6) *( <1 . 8*te (i, j) ) **1.5) ) 
if (mks . eq . 0 ) bcb (j,k) = (te(i, j ) / tb ( j , k) )*(tb(j,k)**1.5) * (te (i, j ) 

& + 198.6) / ( (tb(j,k) +198.6) * (te { i, j)**1.5) ) 

6157 continue 

return 

end 
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c### #################################################################### 

subroutine profile 

c## ##################################################################### 

include ' comblck' 

icheck= (i/ini) *ini~i 
if ( icheck . eq . 0 ) then 
write ( iw , * ) ' ' 

write (iw,*)' profiles (i, j, k, u/ue, v/vinf (vy/vinf if j=l or 
& j=jmax) , t/te, z (ft) ) ' 
write (iw, * ) ' ' 

do 71 j=l , jmaxt , jni 
write (iw, *) kmax 

write (iw, 72) (i,j,k,h(l,j,k),h(2,j,k), roero ( j, k) , zact ( j, k) 

& , k=l, kmax) 

71 continue 
endif 

72 format ( 3i5, 4el3 . 6) 
return 

end 
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c####################################################################### 
subroutine stagpt 

c ####################################################################### 
include 'comblck' 


c 

c 

c the stagnation point solution 

c 

c (blottner's iterative method is used) 

c 

c 

write(6,*)' cstar=' , cstar 

j-1 

testag=t inf * ( 1 . +0 . 5* ( gamma- 1 . ) *rminf **2 ) 
he=cp*testag 

4100 kmax=kmax+l 

write (6,*)' kmax =/ , kmax, ' zeta (kmax) =' , zeta (kmax) 

do 1030 m=l,2 
h (m, j, 1) =0 
hs (m, j , 1 ) =0 
do 1030 k=2,kmax 
h (m, j, k) =1 . 

hs (m, j , k) =hs (m, j, k-1) + (h (m, j , k) +h (m, j , k-1) ) *dzeta (k-1 ) /2 . 

1030 continue 

it=0 

do 1123 k-1 r kmax 
be ( j , k) =1 . 

1123 roero ( j, k) =1 . 

1170 it=it+l 

if (it .gt . 10) write ( 6, * ) ' iteration for stag, pt . soln is gt.l0 r 
if (it . gt . 10 ) stop 
do 1110 k=2,kmax-l 

ai(l,k) = (hs(l,j r k) +cstar*hs (2, j , k) ) / (dzeta (k) +dzeta (k-1 ) ) 

& * (dzeta (k) /dzeta (k-1 ) ) 

& - (be ( j, k) +bc ( j , k-1 ) ) / (dzeta (k-1) * (dzeta (k) + dzeta (k-1 ) ) ) 

ai (2 , k) -0 
ai (3, k) =0 
ai (4, k) -ai(l,k) 

ci (l f k) =- (hs (1, j, k) +cstar*hs ( 2 , j,k) ) / (dzeta (k) tdzeta (k-1) ) 

& * (dzeta (k-1) /dzeta (k) ) 

& - (be ( j, k) +bc ( j, k+1) ) / (dzeta (k) * (dzeta (k) tdzeta (k-1) ) ) 

ci ( 2 , k) =0 
ci (3, k) =0 
ci ( 4, k) =ci ( I, k) 

bi (1, k) =- ( (be ( j , k) +bc ( j, k+1) ) /dzeta (k) + (be ( j, k) +bc ( j, k-1) ) 

& / dzeta (k-1) ) / (dzeta (k) +dzeta (k-1) ) -2 . *h (1, j, k) 

& - (cstar*hs (2, j, k) +hs (l r j,k) ) * (dzeta (k-1) /dzeta (k) ) 


88 



& / (dzeta (k) tdzeta (k-1) ) 

& + (cstar *hs (2, j, k) +hs <1, j,k) ) * (dzeta (k) /dzeta (k-1) ) 

& / (dzeta (k) tdzeta (k-1) ) 

bi (4,k) =- ( (be ( j,k) +bc ( j f k+1) ) /dzeta (k) + (be ( j,k) +bc ( j,k-l) ) 

& /dzeta (k-1) ) / (dzeta (k) tdzeta (k-1) ) -2 . *cstar*h (2, j , k) 

& - ( cstar *hs (2, j,k) 4-hs (1, j, k) ) * (dzeta (k-1) /dzeta (k) ) 

& / (dzeta (k) 4-dzeta (k-1) ) 

& +(cstar*hs(2,j,k) +hs (1, j, k) ) * (dzeta (k) /dzeta (k-1) ) 

& / (dzeta (k) 4-dzeta (k-1) ) 

bi <2 , k) =0 

bi (3, k) =0 

do 1115 m=l, 2 

as (m, k) - ( (dzeta (k-1 ) / dzeta (k) ) * (h (m, j , k+1 ) -h (m, j , k) ) 

& + (dzeta (k) /dzeta (k-1) ) * (h (m, j, k) -h (m, j, k-1) ) ) 

& / (dzeta (k) +dzeta (k-1) ) 

as (m+2 , k) =cstar* ( (dzeta (k-1) /dzeta (k) ) * (h ( m , j, k+1) -h (m, j, k) ) 

& + (dzeta (k) /dzeta (k-1) ) * (h (m, j, k) -h (m, j , k-1) ) ) 

& / (dzeta (k) 4-dzeta (k-1 ) ) 

1115 continue 

di ( 1 , k) =-roero (j,k)-h(l,j,k)**2+(hs(l,j,k) testa r*hs (2, j, k) ) * 

& ( (dzeta (k-l)/dzeta(k) ) *(h(l,j,k+l)-h(l,j,k) ) 

& + (dzeta (k) /dzeta (k-1) ) *(h(l,j,k)-h(l f j,k-l) ) ) 

& / (dzeta (k) tdzeta (k-1 ) ) 

di(2,k)=-cstar* (roero ( j,k) +h (2, j,k) **2) + (cstar*hs (2 f j f k) 

&+hs (1, j f k) ) * ( (dzeta (k-1) /dzeta (k) ) * (h <2, j, k+1) -h (2, j f k) ) 

& + (dzeta (k) /dzeta (k-1) ) * (h (2, j,k) -h (2, j, k-1) ) ) 

& / (dzeta (k) 4-dzeta (k-1 ) ) 

continue 

do 1120 m-1, 4 
e (m, kmax) =0 
es (m, kmax) =0 
continue 
do 1130 m=l, 2 
ds (m, kmax) =1 . 0 
continue 
do 1140 m-1, 2 
hn (m, j , 1 ) =0 
hsn (m, j f 1 ) =0 
continue 

call ntrid 

do 1145 k=2 f kmax-1 
erHhfl, j,k)-hn(l r j, k) )/h(l, j r k) 
if (abs (er) -1 . d-4) 1145 f 1145, 1146 
continue 

go to 1160 

do 1150 m=l , 2 
do 1150 k=l,kmax 


1110 

1120 

1130 

1140 

1145 

1146 


Q-a 
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h (m, j f k) =hn (m, j,k) 
hs (m, j , k) =hsn (m, j, k) 

1150 continue 

1100 continue 

do 1151 k=2, kmax-1 

bcom (k) = (be ( j , k) +bc { j , k-1) ) / (pr* (dzeta (k) +dzeta (k-1 ) ) *dzeta (k-1) ) 
& - (hs (1, j, k) testa r*hs (2, j, k) ) *dzeta (k) 

& / (dzeta (k-1) * (dzeta (k) tdzeta (k-1) ) ) 

dcom (k) =- (be ( j, k) +bc ( j, k+1) ) / (pr* (dzeta (k) tdzeta (k-1 ) ) *dzeta (k) ) 

& - (be ( j, k) +bc ( j , k-1) ) / (pr* (dzeta (k) tdzeta (k-1) ) *dzeta (k-1 ) ) 
&+(hs(l,j,k) +cstar*hs (2, j , k) ) *dzeta (k) 

&/ (dzeta (k-1) * (dzeta (k) tdzeta (k-1) ) ) 

&- (hs ( 1 , j , k) +cstar*hs (2, j r k) ) *dzeta (k-1) 

&/ (dzeta (k) * (dzeta (k) tdzeta (k-1) ) ) 

acom(k) = (be ( j , k) +bc { j , k+1) ) / (pr* (dzeta (k) tdzeta (k-1) ) *dzeta (k) ) 

&+ (hs (1, j , k) +cstar*hs {2, j, k) ) *dzeta (k-1) 

&/ (dzeta (k) * (dzeta (k) tdzeta (k-1) ) ) 
ccom (k) =0 . 

1151 continue 

ccom (kmax-1 ) --acorn (kmax-1) 

if (kaw.eq. 1) dcom (2) =dcom(2) -bcom (2) * (dzeta (1) tdzeta (2) ) **2 
Sc / (dzeta (1) **2- (dzeta (1) tdzeta (2) ) **2) 

if (kaw.eq. 1) acorn (2) =acom(2) +bcom(2) *dzeta (1) **2 
Sc / (dzeta (1) * *2- (dzeta (1) tdzeta (2) ) **2) 

if (kaw . eq . 0 ) ccom (2 ) =-bcom (2 ) *twall ( 1 , j ) / testag 

call sy (2 , kmax-1, bcom, dcom, acom, ccom) 

do 1152 k=2, kmax-1 

1152 h (3, j , k) =ccom (k) 
h ( 3 , j f kmax) =1 . 

if (kaw.eq. l)h (3, j,l)= (dzeta (1) **2 *h (3, j , 3 ) - (dzeta ( 1 ) tdzeta (2 ) ) **2 
Sc *h (3, j, 2) ) / (dzeta (1) **2- (dzeta ( 1 ) tdzeta (2) ) **2) 
if (kaw.eq. 0) h (3, j, 1) =twall (1, j) /testag 

do 1153 k=l , kmax 

td ( j , k) =testag*h ( 3, j , k) 

roero ( j , k) =td ( j , k) /testag 

if (mks .eq.l) be (j,k)= ( testag/ td(j,k) ) * ( (1. 8*td( j, k) ) **1 .5) 

& * (1 . 8*testag+198 . 6) / ( ( 1 . 8*td ( j , k) +198 . 6) *( (1.8*testag) **1.5) ) 
if (mks . eq . 0) be ( j, k) = (testag/ td ( j , k) ) *(td(j,k) **1.5) *(testag 
&+198 . 6) / < (td( j,k)+198 . 6) * (testag* *1 . 5) ) 

1153 continue 
go to 1170 

1160 if (h ( 1, j , kmax-1 ) . It . ukmaxl ) go to 4100 
write (6,*)' it=',it 
return 
end 
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C####################################################################### 

subroutine sy ( il, iu, bb, dd, aa, cc ) 
c (tridiagonal matrix eqn. solver) 

c ####################################################################### 

dimension aa ( 1) , bb (1) , cc (1) , dd (1) 

lp=il+l 

do 10 i=lp, iu 

r-bb(i) /dd(i-l) 

dd(i) =dd(i) -r*aa(i-l) 

cc (i) -cc (i) -r*cc(i-l) 

10 continue 

cc (iu) =cc (iu) /dd(iu) 
do 20 i=lp, iu 
k=iu-i+il 

20 cc (k) = (cc (k) -aa (k) *cc (k+1) ) /dd (k) 

return 
end 
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PART 2. 


BODY-ORIENTED COORDINATE PROGRAM (BCC) 

2.1 Program Description 

Program BCC is used for the generation of the boundary-layer edge conditions based 
on the body-oriented coordinates for the general fuselage. This code reads the numerical 
inviscid solution based on the Cartesian coordinates {x' , y' , z’, u x i/V, x , u v >jV x , u z >jV x , Cp) 
on the inviscid grid and calculates the boundary-layer edge conditions [x' , y', z', UgjV^, 
Vg/V, -a, s, hi, hi, cos$, Cp) on the body-oriented boundary-layer grid. 

A geometry program which defines the fuselage is required to run the BCC code. 
This code is written to be generally applied, so any geometry routine, which returns the 
body radius r for given axial coordinate X and angle <j), can be used. Because the raw 
data defining the sample case general aviation fuselage were nonsmooth, a semi-analytic 
geometry program specially made for this fuselage by Raymond L. Barger at the NASA 
Langley Research Center is used. It should be noted that the angle <j> must be defined 
as — 7r/2 and tt / 2 on the windward and leeward lines of symmetry, respectively, in this 
geometry routine. 

To obtain the boundary-layer edge conditions on the boundary-layer grid, BCC uses a 
bidirectional cubic spline-under-tension interpolation subroutine. There is no subroutine 
other than those related to the geometry and the interpolation. All the input and output 
are given or written by the main program. 
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2.2 Structure of Main Program BCMAIN 


The flow chart for the main program BCMAIN is presented in Figure 4. The x and 
y distribution for the boundary-layer grid are given in the main program BCMAIN. The 
numerical inviscid solution based on the Cartesian coordinates ( x ', y' , z', u x > /V^, u v < /V^, 
u z i /Voo, Cp) on the inviscid grid are read. Then, cos 8 on the inviscid grid is calculated using 
the geometry programs. The calculation of u e jV <» and v e /Voo on the inviscid grid follows. 
The inviscid properties (u e /V 0 Q , Cp) along the lines of symmetry are extrapolated. Then 
u e /V oo, v e /Voo, cosd, Cp on the boundary-layer grid are interpolated using a bidirectional 
cubic spline-under-tension interpolation subroutine. The calculations of x', y ' , z', s , hi, and 
h 2 on the boundary-layer grid follow next. Finally, the the boundary-layer edge conditions 
(x', y', z\ u e /V oo, Ve/Voo, s, hi, h 2 , cos 9, Cp) on the body-oriented boundary-layer grid 
are written in the file fort. 22. 

Parameters IM and JM provide the flexibility of changing the dimensions of the inviscid 
grid to be read. The parameter IM must be the same as the number of the inviscid grid 
points in the streamwise direction, i.e., IM=NT. The parameter JM should be the number 
of the inviscid grid points in the crosswise direction plus 2, i.e., JM=NP+2. Parameters 
IMAXD and JMAXD provide the flexibility of changing the dimensions of the boundary- 
layer grid in the streamwise and crosswise directions. IMAXD may be different from IMAX, 
but must be greater or equal to IMAX. Also, JMAXD may be different from JMAX, but 
must be greater or equal to JMAX. The dimensions of the variable arrays are controlled 
by changing these parameters, IM, JM, IMAXD, and JMAXD. 
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Specify x and y distribution for the boundary-layer grid 


Reads the numerical inviscid solution 

1 


DO loop for i=2, NTI (outer loop) 
and for j=l, NPI (inner loop) 



DO loop for i=2, IMAX( outer loop) 
and for j=l, JMAX(inner loop) 




Fig. 4. Flow Chart for the Main Program BCMAIN 
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2.3 Subroutine Description 


Subroutine DUDY(X1, X2, X3, Yl, Y2, Y3) 

Called by main program BCMAIN. 

Used to obtain the inviscid properties (ug/V^ and Cp ) on the lines of 

Calculates Y3 at X3 by the second order Lagrangian extrapolation, 
symmetry condition at X3 and with given (XI, Yl) and (X2, Y2). 


symmetry, 
utilizing the 


Subroutine STIBI 

Called by the main program BCMAIN. 

Avaiable as a mathematical library routine at NASA Langley Research Center. 

Interpolates the spline-under-tension approximation to one function of two indepen- 
dent variables. Input values of the function are specified at all nodes of a rectangular 
grid. Output values may be requested at one or more individual points or at all 
nodes of a second rectangular grid. In BCC, the two independent variables for the 
interpolation are X and <j>. 


Subroutine VAL(X, <£, r, rx y N) 

Called by main program BCMAIN. 

This is a geometry subroutine to interrogate the radius (r) for a given X and <f>. 
Output: r only if N=0; r and rx{— dr jdx) if N=1 


Must be supplied by the user. 



2.4 Parameter and Variable Directory 


CAVT(I,J) Ve/Voo, inviscid total velocity on the inviscid grid 
COSTH(I,J) cos0 on the boundary-layer grid 
COSTHT(I,J) cos 6 on the inviscid grid 

CPD(I,J) Cp, pressure coefficient on the boundary-layer grid 

DXPDY dx'/dy 

DY(J) Ay 

DYPDY dy'/dy 

DZPDY dz'/dy 

ENDX1,ENDXN,ENDY1,ENDYN,ENDXY 

Arguments of the interpolation subroutine STIBI 
H1(I,J) h x on the boundary-layer grid 

H2(I,J) h -2 on the boundary-layer grid 

IM number of inviscid grid points in the x-direction, including the nose point 

IMAX actual number of boundary-layer grid points in the x-direction 

IMAXD maximum possible number of boundary-layer grid points in the x-direction 

(given as a parameter, IMAXD>IMAX) 

IENDSW, IERR, IOPT, IW, LINOUT 

Arguments of the interpolation subroutine STIBI 
JM number of inviscid grid points in the y-direction, including the lines of 

symmetry 

JMAX actual number of boundary-layer grid points in the y-direction 

JMAXD maximum possible number of boundary-layer grid points in the y-direction 

(given as a parameter, JMAXD > JMAX) 

NP number of inviscid grid points in the y-direction in the numerical 

inviscid data 

NPI number of inviscid grid points in the y-direction, including the lines of 


96 


NT 

NTI 

PI 

PCOEF(I,J) 

PHIT(J) 

RX,RP 

SIGMA 

S1(I,J) 

UE(I,J) 

UET(I,J) 

VE(I,J) 

VET(I,J) 

VX(I,J) 

VY(I,J) 

VZ(I,J) 

WK 

X(I) 

XO(I,J) 

XPD(I,J) 

XX(I) 

Y(J) 

YO(I,J) 

YPD(I,J) 

ZO(I,J) 

ZPD(I,J) 


symmetry (NPI=NP+2) 

number of inviscid grid points in the x-direction in the numerical 
inviscid data 

number of inviscid grid points in the x-direction (NTI=NT) 

7T 

Cp, pressure coefficient on the inviscid grid 
(j> on the inviscid grid 
dr/dX, dr/d<f> 

argument of the interpolation subroutine STIBI 

s on the boundary-layer grid 

u e /V oo on the boundary-layer grid 

Ue/Voo on the inviscid grid 

^e/Poo on the boundary-layer grid 

v e /Vqo on the inviscid grid 

^x'/^oo on the inviscid grid 

u v '/Voo on the inviscid grid 

u z > /Foe on the inviscid grid 

argument of the interpolation subroutine STIBI 

x,- for the boundary-layer grid 

x' on the inviscid grid 

x' on the boundary-layer grid 

X on the inviscid grid 

t )j for the boundary-layer grid 

y' on the inviscid grid 

y' on the boundary-layer grid 

z } on the inviscid grid 

z' on the boundary-layer grid 
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2.5 Input 


The inputs to BCC are given or read in the main program BCMAIN, as follows: 

(1) In the main program BCMAIN, the x and y distributions for the body-oriented bound- 
ary -layer grid are specified. 

First, IMAX and x(t) for i=l,2,..,IMAX are set. 

In this (body-oriented) coordinate system, x has the same value as X. For the blunted 
nose body, x i= i must be at least greater than x' t which can be obtained from SCC. If 
the inviscid solution near the nose is not accurate, x,=i must not be too small. In the 
sample case, using the inviscid solution from the Hess code(which is not accurate near the 
nose), x, = i = 0.004 was found to be adequate. The x distribution can be given arbitrarily. 
However, the stepsizes(Ax) near the nose must be small to obtain nonoscillating boundary- 
layer parameters. 

Next, JMAX and y(j) for j=l,2,..,JMAX are set. 

In this coordinate system, y has the same value as <f>. Therefore, y(l)=0 on the windward 
line of symmetry, and y(JMAX)=7r on the leeward line of symmetry. The y-distribution 
can be given arbitrarily. However, a uniform distribution of grid points in the y direction 
is recommended to obtain a nearly uniform grid distribution downstream. 

(2) The numerical inviscid solution based on the Cartesian coordinates is read also by 
the main program BCMAIN. This sets the values of 

x', y', z', u x i/V< oo, u y i/V 0 o, u z >/Voo, Cp for i=l,2,..,NT, j=l,2,..,NP. 

It is to be noted that j is increasing from the windward line of symmetry to the leeward 
line of symmetry. 
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2.6 Output 


The output from BCC, which is to be used as input for 3DBLC, is written by the main 
program BCMAIN on file fort. 22. The output lists the boundary-layer edge conditions 
including the following. 

x(t) for i=l,2,..,IMAX 
y{j) for j=l,2,..,JMAX 

x', y', z', Uj/Voq, V'/Voc, s , hi, h 2 , cos 9, Cp for i=l,2,..,IMAX, j=l,2,..,JMAX 
The quantities, x' a , z' s , 6 r , A, B, and C*, which are needed only for the blunted nose body, 
are not obtained using BCC. 
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2.7 Sample Case 


For a sample case, the boundary-layer edge conditions on the body-oriented boundary- 
layer grid over a general aviation fuselage an angle of attack 3° are calculated. The inviscid 
solution was obtained using 53x36(IxJ) inviscid grid from the Hess code [1] for the com- 
pressible flow (M qo = 0-3). To reduce the input data, only the first 15x36(IxJ) inviscid grid 
solution is used for this sample case. Also, to reduce the size of the output data, only a 
20x3l(IxJ) body-oriented bound ary- layer grid is generated. For this case, parameters are 
given as IM=15, JM=38 (=36+2), IMAXD=100 (> 20), JMAXD=51 (> 31). 

For the sample case input, the FORTRAN statement (in the BCMAIN) for generating 
x and y distributions for the boundary-layer grid and the inviscid solution (for first 15x36 
inviscid grid) from the Hess code are presented. The output written on file fort. 22 is 
presented for a sample case output, which is input for 3DBLC. 
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2.7.1 Sample Case Input 


imax=20 
jmax=3 1 

x ( 1 ) =0 . 0 0 4 
do 5000 i=2,imax 
if (i . le . 3) dx=0 .0005 
if (i . gt . 3 . and . i . le . 2 0 ) dx=0 .0 02 
x ( i) =x ( i — 1 ) +dx 
write(6,*) f i=',i,' x=',x(i) 
5000 continue 

pi=acos ( -1 . ) 
pio2=pi/2 . 

do 5200 j=l, jmax 
y { j ) =pi* ( j-1 . ) / ( jmax-1 . ) 

5200 continue 


— OWGINAt-PAGE-4S 
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Numerical Inviscid Solution 


1136 

0.100000E-020.403333E-03-. 923000E-02-. 920 655E-010 . 390607E-02- . 5 62 15 6E-0 10 .101052E+01 
0 .10000 0E-020 .120 6 67E-02-. 9166 67E-02-. 92 07 4 8E-0 10 .12 182 6E-01-. 5524 82E-0 10 . 10104 9E+01 
0 . 10000 0E-020 .200333E-02- . 904333E-02-. 92 0 683E-010 . 20814 6E-0 1- . 534518E-0 10 . 101040E+01 
0 .100000E-020 .279333E-02- . 885667E-02- . 920530E-010 .286157E-01- . 508697E-010 . 101028E+01 
0 . 100000E-020 . 3566 67E-02- . 8 60 667E-02- . 920420E-010 . 364 627E-0 1- . 472 657E-0 10 . 101012E+01 
0 . 10000 0E-02 0 . 432000E-02- . 82 9667E-02- . 920288E-010 . 443194E-01- . 427402E-0 10 . 100989E+01 
0 . 100000E-020 . 505000E-02- . 792333E-02- . 919519E-010 . 524400E-0 1- . 37082 9E-0 10 . 100955E+01 
0 . 100000E-020 .574667E-02-.749000E-02-. 918834E-010 . 594662E-01- . 310275E-010 . 100918E+01 
0 . 100000E-020 . 641000E-02-. 699667E-02-. 917573E-010 . 664914E-0 1- . 237 627E-010 . 100869E+01 
0 . 100000E-020 . 703333E-02-. 644333E-02-. 916123E-010 . 728345E-0 1- . 157926E-010 . 100812E+01 
0.100000E-020.761000E-02-.583667E-02-. 914207E-010 .786035E-01-.726155E-020 . 100745E+01 
0. 100000E-020.813000E-02-. 517 667E-02-. 91107 9E-010 . 841406E-0 10 .27 0 953E-020 .1006 62E+01 
0 . 100000E-020 . 859000E-02- . 447000E-02-. 908611E-010 . 883522E-010 . 123918E-010 . 100575E+01 
0 . 100000E-020 . 898667E-02- . 372000E-02-. 904194E-010 . 924065E-010 . 236300E-010 . 100465E+01 
0 . 100000E-020 . 931000E-02-. 29333 3E-02-. 89971 2E-010 . 953665E-010 . 347393E-010 . 100348E+01 
0 .100000E-020 . 955667E-02-.211667E-02-.893958E-010. 975739E-010 .468261E-010 . 100211E+01 
0 . 100000E-020 . 972333E-02- . 127 667E-02- . 887 937E-010 . 987836E-010 . 589367E-010 . 100063E+01 
0 .100000E-020 . 980667E-02- . 426667E-03-. 880488E-010 . 992010E-010 . 718757E-010 . 998917E+00 
0 . 100000E-020 . 981333E-020 . 430000E-03- . 874377E-010 . 986932E-010 . 839554E-010 . 997168E+00 
0 .100000E-020 . 974000E-020 . 12 8333E-02- . 8 64 698E-010 . 972453E-010 . 9717 07E-010 . 9 9514 0E+00 
0 . 10000 0E-020 . 956667E-020 . 2 12000E-02- . 852386E-010 . 947582E-010 . 109988E+000 . 993087E+00 
0 . 100000E-020 . 928333E-020 . 292333E-02- . 837142E-010 . 91171 1E-0 10 . 122583E+000 . 990993E+00 
0 . 100000E-020 . 889000E-020 . 3676 67E-02- . 820 928E-010 . 86604 6E-0 10 . 134322E+000 . 988973E+00 
0 . 100000E-020 . 840333E-020 . 437000E-02- . 805616E-010 . 813468E-010 . 144899E+000 . 987071E+00 
0.100000E-0 20. 784333E-020. 49933 3E-02-.790106E-010.754187E-010. 15460 9E+000.985264E+00 
0.100000E-020.722333E-020.554000E-02-.774365E-010.688190E-010 . 163457E+000 . 983577E+00 
0.100000E-020.656333E-020.601000E-02-.761332E-010.623940E-010 .170617E+000 . 982169E+00 
0. 100000E-020 . 587667E-020 . 640667E-02- . 747962E-010 . 551793E-010 . 177287E+000 . 980843E+00 
0.100000E-020. 51733 3E -020 . 673667E-02- . 737804E-010 . 484672E-010 . 182527E+000 . 979758E+00 
0 . 100000E-020 . 446667E-020 . 700667E-02- . 728406E-010 .414593E-010 . 187007E+000 . 978832E+00 
0. 10000 0E-020 .376333E-020 . 722000E-02- . 720702E-010 . 346765E-010 . 190526E+000 . 978101E+00 
0 .100000E-020 .306333E-020 . 738667E-02- . 715116E-010 .283443E-010 .193177E+000 . 977540E+00 
0 . 100000E-020 .237000E-020 .751333E-02-. 710670E-010 . 22008 3E-010 . 195240E+000 . 977103E+00 
0 . 100000E-02 0 . 168667E-020 .760333E-02-. 707 659E-010 . 159155E-010 . 196649E+000 . 976812E+00 
0 .100000E-020 . 101000E-020.765667E-02-. 70507 0E-010. 8 9770 IE- 020 . 19773 5E+000 . 976583E+00 
0.100000E-020 .3366 67E-030 .7680 00E-02-. 7043 15E-0 10. 334137E-02 0.1 9812 7E+0 00. 97 650 5E+00 
1 2 36 

0 .262936E-020 .796024E-03- . 182172E-01- . 442675E-010 . 85774 6E-02- . 191989E+000 . 982071E+00 
0 .262976E-020 . 238310E-02- . 180996E-01-. 444561E-010 .253185E-01- . 190245E+000 . 982157E+00 
0 .263029E-020 .396044E-02- . 178 628E-0 1- . 447 41 6E-010 . 422311E-01- . 186802E+000 . 982293E+00 
0 .262859E-020 . 552038E-02- . 174957E-01- . 451721E-010 . 588075E-01- . 181597E+000 . 98250 6E+00 
0 .263053E-020 .705411E-02- . 170202E-01- . 457258E-010 . 754291E-01- . 174515E+000 . 982757E+00 
0 .262961E-020 . 854850E-02- . 164147E-01- . 4 63699E-010 . 908698E-01-. 165 967E+000 . 983053E+00 
0 .263043E-020 . 100031E-01- . 156932E-01- . 471133E-010 . 106806E+00- . 155113E+000 . 983330E+00 
0 .263075E-020 . 113960E-01- . 148505E-01- . 478856E-010 . 121312E+00- . 142977E+000 . 983575E+00 
0 .263059E-020 . 127245E-01- . 138865E-01- . 486663E-010 . 135334E+00- . 12888 0E+000 . 983740E+00 
0 .263112E-020 . 1397 87E-01- . 12804 9E-01- . 4 94071E-010 . 148454E+00- . 113056E+000 . 98377 4E+00 
0 . 263122E-020 . 15137 4E-01-. 1160 98E-01- . 499856E-010 . 160477E+00- . 957 663E-010 . 983 606E+00 
0 .263183E-020 . 161918E-01- . 10308 4E-01-. 504723E-010 . 171399E+00- . 766432E-010 . 983213E+00 
0 .2631 62E-020 .1712 60E-01-. 8 91 138E-02-. 50 8752E-010 .180371E+00- . 56 9296E-010 . 982 62 4E+00 
0.2631 8 7E-020. 17929 5E-01-.742311E-02-. 508694E-010 . 188675E+00- . 34355 9E -010. 981577 E+00 
0.263232E-020. 1858 8 8E-01-. 58582 6E-02-. 507 072E-010. 19472 1E+00-. 123 930E-0 10 . 980246E+00 
0 .263197E-020 . 190 920E-01- . 423 12 8 E- 02- . 50 1877E-010 . 199283E+00 0 .118164E-010 . 97 8 440E+00 
0.263237E-020.194353E-01-. 25565 3E-02-.494072E-010 .201818E+000 .359161E-010 . 976259E+00 
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0 .263334E-020 
0 .263196E-020 
0 .263359E-020 
0 .263273E-020 
0 .263354E-020 
0 .263308E-020 
0 . 2 63328E-020 
0 .263281E-020 
0.263267E-020 
0.263406E-020 
0 .263306E-020 
0 .263273E-020 
0 .263289E-020 
0 .263429E-020 
0 .263160E-020 
0 .263364E-020 
0 .263221E-020 
0 .263332E-020 
0 .263219E-020 


196104E-01-. 
196252E-010 . 
194979E-010 . 
191560E-010 . 
185994E-010 . 
178213E-010 . 
168548E-010 . 
157299E-010 . 
144865E-010 . 
131 63 6E-0 10 . 
117798E-010 . 
103682E-010 . 
894964E-020 . 
753828E-020 . 
61307 9E-020 . 
474544E-020 . 
337396E-020 . 
201950E-020 . 
672157E-030 . 


855847E-03- 
858192E-03- 
2567 62E-02- 
424542E-02- 
585882E-02- 
737407E-02- 
87 67 63E-02- 
100145E-01- 
111066E-01- 
120499E-01- 
128420E-01- 
134977E-01- 
140327E-01- 
144624E-01- 
147846E-01- 
150407E-010 
152087E-010 
153167E-010 
153613E-010 


. 481336E-010 
. 472247E-010 
. 454013E-010 
. 426374E-010 
. 390092E-010 
. 348968E-010 
. 303815E-010 
. 255367E-010 
. 207009E-010 
. 162116E-010 
. 120357E-010 
. 821140E-020 
. 509204E-020 
.230959E-020 
. 365310E-030 
. 135399E-020 
. 268183E-020 
. 35412 9E-020 
. 378156E-020 


.20257 6E+000 
. 201449E+000 
. 198167E+000 
. 192438E+000 
. 184288E+000 
. 17 4017E+000 
. 162173E+000 
. 149166E+000 
. 1352 67E+000 
. 121365E+000 
. 107090E+000 
. 928806E-010 
.796782E-010 
. 658518E-0 10 
. 535113E-010 
. 405353E-0 10 
. 2807 62E-010 
. 156276E-010 
. 533098E-020 


***** For brevity, inviscid data for i=3,4,..,14 are deleted. 


1 15 

0 .321581E+000 
0 .321584E+000 
0 .321585E+000 
0 .321591E+000 
0 . 321593E+000 
0 . 321603E+000 
0 .321607E+000 
0 .321613E+000 
0 . 321621E+000 
0 .321629E+000 
0 . 321633E+000 
0 . 321 638E+000 
0 .321638E+000 
0 . 321640E+000 
0 .321641E+000 
0 .321639E+000 
0 .321638E+000 
0 .321638E+000 
0 . 321638E+000 
0 . 321642E+000 
0 .321643E+000 
0 .321648E+000 
0 .321650E+000 
0 . 321651E+000 
0 . 321653E+000 
0 . 321655E+000 
0 .321660E+000 
0 .321663E+000 
0 .321666E+000 
0 .321665E+000 
0 . 321667E+000 
0 . 321667E+000 
0 . 321666E+000 
0 .321664E+000 
0 . 321664E+000 
0 .321663E+000 
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. 872099E-02- 
.262031E-01- 
. 438005E-01- 
. 6157 61E-01- 
. 7 95842E-01- 
. 978590E-01- 
. 116399E+00- 
. 135164E+00- 
. 154062E+00- 
. 172 927E+0 0- 
. 191502E+00- 
.209427E+00- 
.226242E+00- 
. 241408E+00- 
. 254333E+00- 
.264471E+00- 
.271412E+00- 
.275039E+00- 
. 27 6037E+000 
.275727E+000 
. 27 4072E+000 
.269850E+000 
.262265E+000 
.251013E+000 
.236261E+000 
.218570E+000 
. 198724E+000 
. 177532E+000 
. 155695E+000 
. 133738E+000 
. 112014E+000 
. 907100E-010 
. 698886E-010 
. 495275E-010 
.295469E-010 
. 981894E-020 


199535E+000 
198821E+000 
197358E+000 
195087E+000 
191927E+000 
187778E+000 
182503E+000 
175943E+000 
167922E+000 
158255E+000 
146749E+000 
133236E+000 
117 611E+000 
998548E-010 
800799E-010 
585512E-010 
356817E-010 
119861E-010 
120769E-010 
363597E-010 
608228E-010 
851295E-010 
108643E+000 
13062 6E+000 
15041 9E+000 
167567E+000 
18 1905E+000 
193514E+000 
202650E+000 
20 9657E+000 
214896E+000 
218696E+000 
221345E+000 
223077E+000 
224085E+000 
224528E+000 


927619E+000 
927110E+000 
926009E+000 
924247E+000 
921834E+000 
918702E+000 
914710E+000 
909732E+000 
903628E+000 
896291E+000 
887744E+000 
078105E+000 
867727E+000 
857238E+000 
847732E+000 
840390E+000 
835964E+000 
834246E+000 
833639E+000 
831833E+000 
828364E+000 
824694E+000 
822758E+000 
824259E+000 
829531E+000 
837334E+000 
846150E+000 
854545E+000 
061858E+000 
867935E+000 
872626E+000 
87 6202E+000 
878848E+000 
880700E+000 
881882E+000 
882450E+000 


544486E-02- 
164166E-01- 
279428E-01- 
404108E-01- 
541335E-01- 
695334E-01- 
870987E-01- 
107335E+00- 
130682E+00- 
157 627E+00- 
188471E+00- 
222843E+00- 
2597 65E+00- 
297378E+00- 
332383E+00- 
360853E+00- 
379623E+00- 
387878E+00- 
388666E+000 
387891E+000 
383992E+000 
373235E+000 
352006E+000 
319198E+000 
277831E+000 
233827E+000 
192099E+000 
155561E+000 
124717E+000 
991650E-010 
77 9487E-0 10 
599057E-010 
443014E-010 
303237E-010 
175828E-010 
563722E-020 


617052E-010 

843724E-010 

110841E+000 

137681E+000 

163926E+000 

188435E+000 

210910E+000 

231139E+000 

248847E+000 

263738E+000 

276463E+000 

287086E+000 

295358E+000 

302343E+000 

307299E+000 

311386E+000 

314260E+000 

316128E+000 

316774E+000 


** * * * 


257310E+000 

257759E+000 

258777E+000 

260299E+000 

262069E+000 

263877E+000 

265530E+000 

266465E+000 

266091E+000 

263429E+000 

257000E+000 

245150E+000 

226038E+000 

197882E+000 

159817E+000 

112937E+000 

606036E-010 

760883E-020 

358414E-010 

685396E-010 

112419E+000 

162692E+000 

215510E+000 

264835E+000 

304725E+000 

332443E+000 

348978E+000 

357398E+000 

360777E+000 

361277E+000 

360661E+000 

359654E+000 

358623E+000 

357783E+000 

357222E+000 

356955E+000 


973442E+00 
970553E+00 
966707E+00 
962337E+00 
957 5 93E+0 0 
9527 43E+0 0 
947845E+00 
943028E+00 
938524E+00 
934462E+00 
930821E+00 
927 62 6E+00 
925025E+00 
922794E+00 
921187E+00 
919824E+00 
918837E+00 
918171E+00 
917968E+00 


734057E-01 
738801E-01 
7488 60E-01 
765103E-01 
787498E-01 
816696E-01 
853770E-01 
900447E-01 
957803E-01 
102657E+00 
110614E+00 
119494E+00 
128850E+00 
137978E+00 
14580 6E+00 
151288E+00 
153908E+00 
154058E+00 
153225E+00 
153423E+00 
154258E+00 
154642E+00 
153242E+00 
14 907 0E+00 
142284E+00 
134080E+00 
125696E+00 
118133E+00 
1117 66E+00 
10 658 9E+00 
102607E+00 
995533E-01 
972 642E-01 
956443E-01 
945684E-01 
940319E-01 
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2.7.2 Sample Case Output 


20 31 

0 . 400000E-02 0 . 450000E-02 0.500000E-02 0.700000E-02 0.900000E-02 

0.110000E-01 0 . 130000E-01 0 . 150000E-01 0.170000E-01 0.190000E-01 

0.210000E-01 0 . 230000E-01 0.250000E-01 0.270000E-01 0.290000E-01 

0 . 310000E-01 0 . 330000E-01 0.350000E-01 0.370000E-01 0.390000E-01 

O.OOOOOOE+OO 0 . 104720E+00 0.209440E+00 0.314159E+00 0.418879E+00 

0 . 523599E+00 0.628319E+00 0.733038E+00 0.837758E+00 0.942478E+00 

0 . 104720E+01 0.115192E+01 0.125664E+01 0.136136E+01 0.146608E+01 

0 . 157080E+01 0 . 167552E+01 0.178024E+01 0.188496E+01 0.198968E+01 

0.209439E+01 0 . 219911E+01 0.230383E+01 0.240856E+01 0.251327E+01 

0.261799E+01 0 . 272271E+01 0.282743E+01 0.293215E+01 0.303687E+01 

0 . 314159E+01 

1 1 0 . 400000E-02 -0 . 148836E-07 -0 .232644E-01 0.236058E-01 0.250007E+00 

O.OOOOOOE+OO 0 . 590144E+01 0.232644E-01 0.000000E+00 0.964495E+00 

1 2 0 . 400000E-02 0 . 243383E-02 -0 . 231564E-01 0.236250E-01 0.249811E+00 

-0 . 140179E-02 0 . 590625E+01 0.232634E-01 0.102811E-01 0.964641E+00 

1 3 0 . 400000E-02 0.485302E-02 -0 . 228317E-01 0.236821E-01 0.249152E+00 

-0 .253219E-02 0.592052E+01 0.233286E-01 0.246516E-01 0.964944E+00 

1 4 0 . 400000E-02 0.724221E-02 -0 . 2228 93E-01 0.237752E-01 0.248002E+00 

-0 . 305573E-02 0.594381E+01 0.234343E-01 0.376655E-01 0.965482E+00 

1 5 0 . 400000E-02 0 . 958455E-02 -0 . 215273E-01 0.239016E-01 0.246458E+00 

-0 .293748E-02 0.597540E+01 0.235753E-01 0.492020E-01 0.966214E+00 

1 6 0 . 400000E-02 0.118611E-01 -0 . 205440E-01 0.240570E-01 0.244544E+00 

-0 .210847E-02 0.601426E+01 0.237455E-01 0.587947E-01 0.967030E+00 

1 7 0 . 400000E-02 0 . 140503E-01 -0 . 193386E-01 0.242362E-01 0.242450E+00 

0 . 182996E-03 0.605906E+01 0.239373E-01 0.657850E-01 0.967897E+00 

1 8 0 . 400000E-02 0 . 161280E-01 -0 . 179120E-01 0.244326E-01 0.240201E+00 

0.323252E-02 0.610815E+01 0.241413E-01 0.701368E-01 0.968749E+00 

1 9 0 . 400000E-02 0.180669E-01 -0 . 162675E-01 0.246382E-01 0.238143E+00 

0 . 815048E-02 0.615956E+01 0.243481E-01 0.714157E-01 0.969436E+00 

1 10 0 . 400000E-02 0 . 198374E-01 -0 . 144127E-01 0.248445E-01 0.236453E+00 

0 . 138459E-01 0 . 621112E+01 0.245479E-01 0.694549E-01 0.969848E+00 

1 11 0 . 400000E-02 0 . 214084E-01 -0 . 123601E-01 0.250418E-01 0.235392E+00 

0 . 208390E-01 0 . 626044E+01 0.247318E-01 0.635639E-01 0.969890E+00 

1 12 0 . 400000E-02 0.227483E-01 -0 . 101282E-01 0.252204E-01 0.235199E+00 

0.298814E-01 0 . 630509E+01 0.248918E-01 0.547637E-01 0.969390E+00 

1 13 0 . 400000E-02 0.238273E-01 -0 . 774197E-02 0.253708E-01 0.236326E+00 

0 . 383833E-01 0.634269E+01 0.250217E-01 0.426212E-01 0.968436E+00 

1 14 0 . 400000E-02 0.246190E-01 -0 . 523294E-02 0.254848E-01 0.238730E+00 

0 . 492255E-01 0.637121E+01 0.251171E-01 0.281493E-01 0.966547E+00 

1 15 0 . 400000E-02 0.251028E-01 -0 . 2 63842E-02 0.255560E-01 0.242999E+00 

0 . 598276E-01 0.638900E+01 0.251747E-01 0.106124E-01 0.963918E+00 

1 16 0 . 400000E-02 0.252644E-01 O.OOOOOOE+OO 0.255791E-01 0.247625E+00 

0 . 698607E-01 0 . 63947 6E+01 0.252369E-01 0.107769E-01 0.960271E+C0 

1 17 0 . 400000E-02 0.251809E-01 0.264661E-02 0.256337E-01 0.254166E+00 

0 . 7 93903E-01 0.640841E+01 0.252352E-01 0.688476E-02 0.955619E+C0 

1 18 0.400000E-02 0.247446E-01 0.525963E-02 0.256117E-01 0.265902E+00 

0 . 923270E-01 0.640293E+01 0.251921E-01 -0 . 397059E-01 0.950264E+00 

1 19 0 . 400000E-02 0.238921E-01 0.776299E-02 0.254381E-01 0.281280E+00 

0 . 104250E+00 0 . 635952E+01 0.251134E-01 -0 . 985603E-01 0.943952E+00 
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1 20 0 400000E-02 0.226377E-01 0.100789E-01 0.251008E-01 0.298495E+00 

0 114168E+00 0 . 627520E+01 0.249739E-01 -0 . 154 656E+00 0.937161E+00 

1 21 0 ' 400000E-02 0.210391E-01 0.121469E-01 0.246210E-01 0.315926E+00 

0 12108 9E+00 0 . 615525E+0 1 0.247314E-01 -0 .200431E+00 0.930387E+00 

1 22 0 ! 400000E-02 0.191770E-01 0.139329E-01 0.240392E-01 0.331608E+00 

0 123761E+00 0.600979E+01 0.243500E-01 -0 . 230828E+00 0.923777E+00 

1 23 0 400000E-02 0.171360E-01 0.154293E-01 0.234031E-01 0.344599E + 00 

0 122036E+00 0.585077E+01 0.238257E-01 -0 .246230E+00 0.917558E+00 

1 24 0 ' 400000E-02 0.149911E-01 0.166493E-01 0.227581E-01 0.354280E+00 

0 . 115570E+00 0 . 568952E+01 0.231892E-01 -0 . 246601E+00 0.912179E+00 

1 25 0 " 400000E-02 0.128007E-01 0.176186E-01 0.221421E-01 0.360999E+00 

0 . 105573E+00 0.553553E+01 0.224937E-01 -0 . 235283E+00 0.907764E+00 

1 26 0 400000E-02 0.106047E-01 0.183678E-01 0.215832E-01 0.365092E+00 

0 " 918703E-01 0 . 539579E+01 0.217974E-01 -0 .213841E+00 0.904107E+00 

1 27 0 ! 400000E-02 0.842718E-02 0.189277E-01 0.211016E-01 0.367212E+00 

0.757737E-01 0.527539E+01 0.211522E-01 -0 . 184084E+00 0.901169E+00 

1 28 0 ! 400000E-02 0.627944E-02 0.193261E-01 0.207106E-01 0.368181E+00 

0 585943E-01 0.517765E+01 0.206002E-01 -0 . 147437E+00 0.898929E+00 

1 29 0 ! 400000E-02 0.416331E-02 0.195868E-01 0.204200E-01 0.368245E+00 

0.398796E-01 0.510500E+01 0.201732E-01 -0 . 104913E+00 0.897520E+00 

1 30 0 . 400000E-02 0.207367E-02 0.197295E-01 0.202374E-01 0.367920E+00 

0 206593E-01 0.505935E+01 0.198979E-01 -0 . 576419E-01 0.896751E+00 

1 31 0 ! 400000E-02 0.620667E-08 0.197717E-01 0.201723E-01 0.367597E+00 

0 . 000000E+00 0 . 504307E+01 0.198060E-01 O.OOOOOOE+OO 0.896493E+00 

2 1 0 ! 450000E-02 -0 . 158292E-07 -0 .247425E-01 0.251661E-01 0.265181E+00 

O^OOOOOOE+OO 0 . 312070E+01 0.247428E-01 O.OOOOOOE+OO 0.954012E+00 

2 20 450000E-02 0.258853E-02 -0 .246283E-01 0.251872E-01 0.264981E+00 

-0 ! 18 6515E-02 0 . 312440E+01 0.247431E-01 0.107155E-01 0.954188E+00 

2 3 0 . 450000E-02 0.516194E-02 -0 .242851E-01 0.252498E-01 0.264246E+00 

-0 34 6922E-02 0.313547E+01 0.248152E-01 0.254391E-01 0.954573E+00 

2 4 0 . 450000E-02 0.770432E-02 -0 . 237115E-01 0.253520E-01 0.262961E+00 

-0 ! 439319E-02 0.315358E+01 0.249321E-01 0.387918E-01 0.955257E+00 

2 5 0 . 450000E-02 0.101981E-01 -0 . 229053E-01 0.254908E-01 0.261226E+00 

-0 . 473907E-02 0.317830E+01 0.250880E-01 0.506322E-01 0.956192E+00 

2 6 0 . 450000E-02 0.126233E-01 -0 .218643E-01 0.256615E-01 0.259074E+00 

-0 . 42028 9E-02 0.320892E+01 0.252764E-01 0.605659E-01 0.957254E+00 

2 7 0.450000E-02 0.149575E-01 -0 . 205872E-01 0.258585E-01 0.256696E+00 

-0 .216411E-02 0.324454E+01 0.254885E-01 0.678072E-01 0.958404E+00 

2 8 0 . 450000E-02 0.171745E-01 -0 . 190742E-01 0.260745E-01 0.254083E+00 

0 ! 652706E-03 0.328387E+01 0.257142E-01 0.722809E-01 0.959560E+00 

2 9 0 . 450000E-02 0.192453E-01 -0 . 17328 6E-01 0.263010E-01 0.251635E+00 

0 ". 5578 91E-02 0.332547E+01 0.259429E-01 0.736809E-01 0.960551E+00 

2 10 0 ! 450000E-02 0.211382E-01 -0 . 15357 8E-0 1 0.265283E-01 0.249488E+00 

0 . 111430E-01 0 . 336765E+01 0.261640E-01 0.717078E-01 0.961260E+00 

2 11 0.450000E-02 0.228193E-01 -0 . 131748E-01 0.267460E-01 0.247978E+00 

0 ! 183400E-01 0 . 340843E+01 0.263670E-01 0.657245E-01 0.961552E+00 

2 12 0 . 450000E-02 0.242544E-01 -0 . 107 988E-01 0.269432E-01 0.247376E+00 

0.275728E-01 0.344563E+01 0.265435E-01 0.566467E-01 0.961261E+00 

2 13 0 . 450000E-02 0.254109E-01 -0 . 825654E-02 0.271094E-01 0.248064E+00 

0.362584E-01 0.347720E+01 0.266867E-01 0.441718E-01 0.960441E+00 

2 14 0.450000E-02 0.262600E-01 -0 . 558 17 6E-02 0.272355E-01 0.250112E+00 

0 ! 474849E-01 0.350126E+01 0.267918E-01 0.292633E-01 0.958595E+00 

2 15 0 450000E-02 0.267791E-01 -0 . 281461E-02 0.273142E-01 0.254107E+00 

0 ! 58478 6E-01 0.351631E+01 0.268551E-01 0.111631E-01 0.955900E+00 

2 16 0 450000E-02 0.269524E-01 O.OOOOOOE+OO 0.273396E-01 0.258499E+00 

0 . 688537E-01 0.352116E+01 0.269244E-01 0.112628E-01 0.952126E+00 

2 17 0 450000E-02 0.268663E-01 0.282374E-02 0.274005E-01 0.264792E+00 

0 . 78 6456E-0 1 0.353364E+01 0.269257E-01 0.828914E-02 0.947242E+00 

2 18 0.450000E-02 0.264059E-01 0.561275E-02 0.273822E-01 0.276313E+00 

0 . 922146E-01 0.354095E+01 0.268816E-01 -0 .377897E-01 0.941458E+00 
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2 

19 

0 . 450000E-02 
0 . 104683E+00 

0 .255010E-01 
0 .352813E+01 

2 

20 

0 . 450000E-02 
0 . 115255E+00 

0.241656E-01 
0 . 349121E+01 

2 

21 

0 . 450000E-02 
0 . 122805E+00 

0 . 224608E-01 
0 .343209E+01 

2 

22 

0 . 450000E-02 
0 . 125813E+00 

0.204730E-01 
0 . 335630E+01 

2 

23 

0 . 450000E-02 
0 . 124464E+00 

0 . 182931E-01 
0 .327089E+01 

2 

24 

0 . 450000E-02 
0 . 117946E+00 

0 . 160021E-01 
0 . 318295E+01 

2 

25 

0 . 450000E-02 
0 . 107911E+00 

0.136626E-01 
0 . 309838E+01 

2 

26 

0.450000E-02 
0 . 939484E-01 

0 . 113174E-01 
0 .302137E+01 

2 

27 

0.450000E-02 
0 . 775102E-01 

0 . 899269E-02 
0.295504E+01 

2 

28 

0 . 450000E-02 
0 .599501E-01 

0 . 670025E-02 
0 .290132E+01 

2 

29 

0.450000E-02 

0.405319E-01 

0 . 444202E-02 
0 .286143E+01 

2 

30 

0 . 450000E-02 
0 .208467E-01 

0 . 221240E-02 
0 . 283653E+01 

2 

31 

0 . 450000E-02 
0. 000000E+00 

0 . 662182E-08 
0 .282770E+01 


0 .828576E-02 
0 . 267998E-01 
0.107592E-01 
0.266543E-01 
0 . 129677E-01 
0 .263995E-01 
0 . 148745E-01 
0.259960E-01 
0 . 164712E-01 
0 . 254382E-01 
0 . 177721E-01 
0 . 247584E-01 
0 . 188049E-01 
0 . 240141E-01 
0 . 1 96023E-01 
0.232679E-01 
0.201979E-01 
0 . 225757E-01 
0 .206212E-01 
0.219835E-01 
0.208980E-01 
0 . 215252E-01 
0 . 210494E-01 
0 .212297E-01 
0 .210942E-01 
0 . 211310E-01 


0 .272022E-01 
-0.967838E-01 
0 . 268464E-01 
-0.153230E+00 
0 . 26337 0E-01 
-0.199220E+00 
0.257173E-01 
-0 .229987E+00 
0.250385E-01 
-0.245 47 6E+00 
0.243496E-01 
-0.246159E+00 
0 .236913E-01 
-0.234915E+00 
0.230939E-01 
-0.213509E+00 
0 . 225791E-01 
-0.183789E+00 
0 .221613E-01 
-0 . 147171E+00 
0 . 218507E-01 
-0 . 104712E+00 
0.216557E-01 
-0 . 574984E-01 
0.215861E-01 
0 . 000000E+00 


***** For brevity, output for i=3,4,..,19 is deleted. ***** 


20 

1 

0 . 390000E-01 

-0 . 475 658E-07 



0. OOOOOOE+OO 

0 .138152E+01 

20 

2 

0 . 390000E-01 

0.778423E-02 



-0.143568E-01 

0 . 138320E+01 

20 

3 

0 .390000E-01 

0 . 15557 8E-0 1 



-0 . 279416E-01 

0.138820E+01 

20 

4 

0 . 390000E-01 

0 .233056E-01 



-0 . 407296E-01 

0 . 13 9 651E+0 1 

20 

5 

0 . 390000E-01 

0 . 310040E-0 1 



-0 . 520173E-01 

0 . 140806E+01 

20 

6 

0 . 390000E-01 

0 .386171E-01 



-0 . 611592E-01 

0 .142273E+01 

20 

7 

0 .390000E-01 

0 . 460921E-01 



-0 . 673612E-01 

0 . 1 44038E+0 1 

20 

8 

0 . 390000E-01 

0 .533553E-01 



-0 . 706555E-01 

0 . 1460 61E+01 

20 

9 

0 . 390000E-01 

0. 603084E-01 



-0 . 699325E-01 

0 . 14828 9E+01 

20 

10 

0 . 390000E-01 

0.668283E-01 



-0 . 647821E-01 

0 . 150 637E + 0 1 

20 

11 

0 .390000E-01 

0 . 727 661E-0 1 



-0 . 55308 9E-01 

0 . 152 993E+01 

20 

12 

0 . 390000E-01 

0 . 77 9553E-0 1 



-0 . 411998E-01 

0 . 155222E+01 

20 

13 

0 . 390000E-01 

0 .822223E-01 



-0.234702E-01 

0 . 157164E+01 

20 

14 

0 . 390000E-01 

0 . 854039E-01 



-0 .306474E-02 

0.158670E+01 

20 

15 

0 .390000E-01 

0.873683E-01 



0 . 190340E-01 

0 . 15961 9E+01 

20 

16 

0 . 390000E-01 

0 . 8 80 632E-01 


-0.743496E-01 
0 . 743850E-01 
-0 . 740622E-01 
0 .744878E-01 
-0.731938E-01 
0 . 7 49428E-01 
-0 . 7 17272E-01 
0 .756813E-01 
-0 . 696362E-01 
0 .766733E-01 
-0 . 668870E-01 
0 . 77877 6E-01 
-0 . 634403E-01 
0.792400E-01 
-0 .592571E-01 
0.806923E-01 
-0 . 543020E-01 
0 . 821580E-01 
-0 . 485536E-01 
0 .835560E-01 
-0 . 420116E-01 
0 . 848106E-01 
-0 .347080E-01 
0 . 858 620E-01 
-0.267157E-01 
0 . 866756E-01 
-0.181532E-01 
0 . 872446E-01 
-0 . 918281E-02 
0 . 876000E-01 
0 .OOOOOOE+OO 


0 . 861731E-01 
0 .OOOOOOE+OO 
0 . 862742E-01 
0 . 178137E-01 
0 . 865754E-01 
0 . 379004E-01 
0 . 870711E-01 
0.567094E-01 
0 . 877522E-01 
0 . 740519E-01 
0 . 886049E-01 
0 . 893371E-01 
0 .896087E-01 
0 . 101946E+00 
0 . 907358E-01 
0 . 111085E+00 
0.919476E-01 
0 . 115855E+00 
0 . 931964E-01 
0 . 115706E+00 
0 . 944228E-01 
0 . 109097E+00 
0. 955596E-01 
0 . 966681E-01 
0 . 965362E-01 
0 . 775878E-01 
0 . 972862E-01 
0 . 53280 9E-0 1 
0 . 977571E-01 
0.221946E-01 
0.979440E-01 


0.291668E+00 
0 . 934577E+00 
0 . 309073E+00 
0 . 927 0 90E+00 
0 . 326773E+00 
0 . 919559E+00 
0 . 342777E+00 
0 . 912225E+00 
0 . 356062E+00 
0 . 905306E+00 
0 . 36600 9E+00 
0 . 899347E+00 
0 .372876E+00 
0 . 894447E+00 
0 . 377037E+00 
0 . 890411E+00 
0 . 379217E+00 
0 . 887182E+00 
0 . 380223E+00 
0 . 884720E+00 
0 .380218E+00 
0 .883190E+00 
0 .379829E+00 
0 .882371E+00 
0 .379516E+00 
0 . 882095E+00 


0 . 685748E+00 
0 .543562E+00 
0 . 685165E+00 
0.5447 49E+00 
0 . 683438E+00 
0 . 547554E+00 
0 . 680559E+00 
0 . 552411E+00 
0 . 676345E+00 
0 . 559298E+00 
0 . 670756E+00 
0 .567953E+00 
0 . 663836E+00 
0 . 578215E+00 
0 . 655563E+00 
0 . 589841E+00 
0 . 645979E+00 
0 . 602586E+00 
0.635488E+00 
0 . 615796E+00 
0 . 624662E+00 
0 . 628571E+00 
0 . 614301E+00 
0 . 640082E+00 
0 . 605464E+00 
0 . 649431E+00 
0 .599182E+00 
0 . 655450E+00 
0.596398E+00 
0 . 657675E+00 
0 . 595588E+00 
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0 . 389856E-01 

0 .160004E+01 

20 

17 

0.390000E-01 
0 . 510731E-0 1 

0 . 879284E-01 
0 . 160534E+01 

20 

18 

0 . 390000E-01 
0 .739315E-01 

0 . 868571E-01 
0 .161506E+01 

20 

19 

0 .390000E-01 
0 . 101843E+00 

0 .843374E-01 
0 . 162015E+01 

20 

20 

0 .390000E-01 
0 . 129797E+00 

0 .802721E-01 
0 . 161657E+01 

20 

21 

0 . 390000E-01 
0 . 152814E+00 

0 .748054E-01 
0 . 160334E+01 

20 

22 

0 . 390000E-01 
0 . 167856E+00 

0 . 682358E-01 
0 .158183E+01 

20 

23 

0 . 390000E-01 
0 . 173449E+00 

0 . 609184E-01 
0 . 155496E+01 

20 

24 

0 . 390000E-01 
0 . 169254E+00 

0 .531855E-01 
0.152592E+01 

20 

25 

0 . 390000E-01 
0 . 156728E+00 

0 . 452934E-01 
0 .149736E+01 

20 

26 

0 . 390000E-01 
0 . 137704E+00 

0 .374166E-01 
0 .147137E+01 

20 

27 

0 . 390000E-01 
0 . 114226E+00 

0 .296542E-01 
0 .144903E+01 

20 

28 

0 . 390000E-01 
0 . 879869E-01 

0 .220461E-01 
0 .143113E+01 

20 

29 

0 . 390000E-01 
0 . 593864E-01 

0 .145915E-01 
0 . 141796E+01 

20 

30 

0 . 390000E-01 
0 . 301647E-01 

0.726007E-02 
0 . 140982E+01 

20 

31 

0 . 390000E-01 
0 . 000000E+00 

0.217225E-07 
0 . 140699E+01 


0 . 880107E-01 
0 . 924159E-02 
0 . 883377E-01 
0 . 184620E-01 
0 . 883924E-01 
0 .274028E-01 
0 . 882820E-01 
0 .357394E-01 
0 . 880476E-01 
0 . 431888E-01 
0 . 875636E-01 
0 . 4957 62E-01 
0 . 865853E-01 
0 . 548512E-01 
0 . 849584E-01 
0 . 590685E-01 
0 . 827323E-01 
0 . 623409E-01 
0 . 801225E-01 
0 . 648073E-01 
0 .773966E-01 
0 . 666043E-01 
0.748133E-01 
0 . 678509E-01 
0 .725774E-01 
0 . 686478E-01 
0 .708396E-01 
0 . 690744E-01 
0 . 697191E-01 
0 . 691985E-01 
0 . 693382E-01 


0.220268E-01 
0 . 982531E-0 1 
0 .387339E-01 
0 . 985790E-01 
0 . 932750E-02 
0 . 984452E-01 
-0 . 438659E-01 
0 . 976922E-01 
-0 . 102442E+00 
0 . 963326E-01 
-0 . 154077E+00 
0 . 944974E-01 
-0 . 190672E+00 
0.9237 67E-01 
-0 . 209656E+00 
0.901667E-01 
-0 .213841E+00 
0 .880286E-01 
-0.204416E+00 
0 . 860827E-01 
-0 . 185507E+00 
0 . 844094E-01 
-0 . 158965E+00 
0 . 830575E-01 
-0 . 126559E+00 
0 . 820585E-01 
-0.893690E-01 
0 . 814354E-01 
-0 . 483743E-01 
0 . 812158E-01 
0 . 000000E+00 


0 . 656822E+00 
0 . 595936E+00 
0 . 65368 6E+00 
0 . 599896E+00 
0 . 647450E+00 
0 . 609807E+00 
0 . 636418E+00 
0 . 62 6105E+00 
0 . 620516E+00 
0 . 646648E+00 
0 . 601819E+00 
0 . 667418E+00 
0 . 581962E+00 
0 . 685324E+00 
0 . 562584E+00 
0 . 699112E+00 
0 .545546E+00 
0 . 708247E+00 
0 . 531567E+00 
0 . 713664E+00 
0 . 520345E+00 
0 . 716398E+00 
0 . 511634E+00 
0 .717387E+00 
0 . 505200E+00 
0 .717351E+00 
0 .501022E+00 
0 .716944E+00 
0 . 498686E+00 
0 . 716659E+00 
0 . 497821E+00 
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2.8 FORTRAN Listing of BCC 


Subroutines STIBI and VAL are not presented here. Subroutine DUDY can be found 
in Section 3.8. 


####################################################################### 
program bcmain 

####################################################################### 

c** obtain the boundary-layer edge conditions 
c** on the body-oriented boundary-layer grids. 

parameter ( im=15 , jm=3 8 , imaxd=100, jmaxd=51) 
dimension xo ( im, jm) , yo ( im, jm) , zo ( im, jm) 

Sl , vx (im, jm) , vy (im, jm) , vz (im, jm) , pcoef (im, jm) 
dimension phit ( jm) , cavt ( im, jm) , xx ( im) 

dimension cavl ( im) , cavw ( im) , costht ( im, jm) , uet ( im, jm) 

& , vet (im, jm) , cpl (im) , cpw (im) 
integer iendsw { 8 ) , ierr, iopt (3) , iw, mx, my, mz 
real endyl ( im) , endyn ( im) , sigma 
real wk(5*im*jm) 

dimension x (imaxd) , y ( jmaxd) , ue (imaxd, jmaxd) , ve ( imaxd, jmaxd) 

& , costh ( imaxd, jmaxd) , cpd ( imaxd, jmaxd) 
dimension xpd ( imaxd, jmaxd) , ypd ( imaxd, jmaxd) , zpd ( imaxd, jmaxd) 
dimension hi ( imaxd, jmaxd) , sl ( imaxd, jmaxd) , h2 ( imaxd, jmaxd) 

& , dy ( jmaxd) 

imax=2 0 
jmax=3 1 

x { 1 ) =0 . 0 0 4 

do 5000 i=2,imax 

if ( i . le . 3 ) dx=0 .0005 

if ( i . gt . 3 . and . i . le . 2 0 ) dx=0 .0 02 

x ( i ) =x (i-1 ) +dx 

write(6,*)' i=',i,' x=',x(i) 

5000 continue 

pi=acos ( -1 . ) 
pio2=pi/2 . 

do 5200 j=l, jmax 
y ( j) =pi* ( j-1. ) / ( jmax-1 . ) 

5200 continue 

if (imax . gt . imaxd) write ( 6, *) ' change parameter imaxd greater or 
&equal to', imax 

if ( jmax . gt . jmaxd) write ( 6 , *)' change parameter jmaxd greater or 
&equal to' , jmax 

if (imax.gt . imaxd. or . jmax.gt . jmaxd) stop 
c 

c read inviscid data 
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c 


rewind 2 

100 read (2, 410 , end=1000 ) is, lk,ksorce 
do 800 k=l,ksorce 

read (2, 411) xo (lk, k) ,yo(lk,k) , zo (lk, k) , vx ( lk, k) , 

&vy (lk, k) , vz (lk, k) ,pcoef (lk,k) 
cavt (lk, k) =sqrt (vx (lk, k) **2+vy(lk,k) **2+vz(lk,k) **2) 
if (yo ( lk, k) .lt.0)yo(lk,k)=l.e-7 

if (lk.eq.3) phit (k)=atan (zo (lk, k) /yo (lk, k) ) +pio2 
800 continue 

xx { lk) =xo { lk, 1 ) 

410 format (3i5) 

411 format (7el2 . 6) 
go to 100 

c to give values on the lines of symmetry 

1000 nt=lk 

np=ksorce 

if (nt .ne . im) then 

write ( 6, * ) ' im is not same as nt, change parameter im to',nt 

stop 

endif 

if (np+2 .ne . jm) then 

write ( 6 , * ) ' jm is not same as np+2 , change parameter jm to', np+2 

stop 

endif 

c to obtain costht 

do 3000 i=l, nt 
do 3100 k=l,np 
phl=phit (k) -pio2 

call val {xo (i, k) ,phl, rl, rx, 0) 
xl=xo ( i , k) 
yl=-rl* (-cos (phi) ) 
zl=r l*sin (phi) 

x2=xo { i , k) +0 . 0 1 
call val (x2, phi, r2, rx, 0) 
y2=-r2 * (-cos (phi) ) 
z2=r2*sin (phi) 

ph3=phl+0 . 0 1 

call val (xo (i, k) ,ph3, r3, rx, 0) 
x3=xo (i, k) 
y3=-r3* (-cos (ph3) ) 
z3=r3*sin (ph3) 

costht (i,k)=( (y2-yl) * (y3-yl) + (z2-zl) * (z3-zl) + (x2-xl) * (x3-xl) ) 

& / (sqrt ( (y3-yl) **2+(z3-zl) **2+ (x3-xl ) **2 ) 

& *sqrt ( (y2-yl) **2+(z2-zl) **2+ (x2-xl) **2) ) 

delta=acos ( ( (x3-xl ) *vx (i,k) + (y3-yl) * vy (i,k)+(z3-zl) *vz(i,k) ) 

&/ (sqrt ( (x3-xl) **2+ (y3-yl) **2+ (z3-zl) **2) *cavt (i, k) ) ) 
gamma=acos (costht (i, k) ) -delta 
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vet (i, k) =cavt (i, k) *sin (gamma) /sqrt (1 . -costht (i f k) **2) 
uet (i, k) =-vet (i,k) *costht (i, k) +cavt (i, k) *cos (gamma) 

3100 continue 

3000 continue 

do 2600 lk=l, nt 

call dudy (phit (np-1) , phit (np) , pi, uet (lk,np-l) 

& , uet (lk, np) , cavl (lk) ) 

call dudy (phit (np-1) ,phit (np) , pi, pcoef (lk,np-l) 

&, pcoef (lk, np) , cpl (lk) ) 

call dudy (phit (2) ,phit (1) , 0 . , uet (lk, 2) , uet (lk, 1) , cavw (lk) ) 
call dudy (phit (2) ,phit (1) , 0 . , pcoef (lk, 2 ) , pcoef (lk,l) , cpw(lk) ) 
2600 continue 

do 2100 lk— 1, nt 
do 1200 k=ksorce, 1 , -1 
uet (lk, k+1) =uet (lk, k) 
vet (lk, k+1) =vet (lk,k) 
costht (lk, k+1) =costht (lk, k) 
pcoef (lk, k+1) =pcoef (lk, k) 

1200 continue 
2100 continue 


do 1300 k=ksorce, 1 , -1 
phit (k+1) =phit (k) 

1300 continue 

phit (1) -0 . 
phit (np+2 ) -pi 

npi=np+2 
nt i=nt 


do 3300 lk— l,nti 
uet ( lk, 1) =cavw ( lk) 
uet (lk, npi) =cavl (lk) 
vet (lk, 1) =0 . 
vet (lk, npi) =0 . 
costht (lk, 1) =0 . 
costht (lk, npi) =0 . 
pcoef (lk, 1) =cpw (lk) 
pcoef (lk, npi) =cpl (lk) 

3300 continue 

c biviarate spline under tension 

iendsw ( 1) =2 
iendsw (2 ) =2 
iendsw (3) =0 
iendsw (4 ) =0 

do 50 ii=l,nti 
endyl (ii) =0 . 

50 endyn(ii)=0. 
sigma =2 . 0 

iopt (1) =3 
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iopt (2) =3 

mx-1 

my=l 

mz=l 

iw=0 

do 7000 i=l,imax 
do 7000 j=l , jmax 

call st ibi ( iopt, im, jm, xx, phit , im, uet , iendsw, endxl 
&, endxn, endyl , endyn, endxy, sigma, mx, my, x (i) , y ( j ) , iw,mz, ues, 
&linout, wk, ierr) 

if (ierr . gt . 0) write (6, *) ' ***** ierr is gt . 0 (stibi) ierr=' , ierr 

ue ( i, j ) =ues 
7000 continue 

do 7500 i=l,imax 
do 7500 j=l , jmax 

call stibi (iopt, im, jm, xx, phit, im, pcoef , iendsw, endxl 
& , endxn, endyl, endyn, endxy, sigma, mx, my, x (i) , y ( j ) , iw, mz, cps, 
&linout , wk, ierr) 

if (ierr .gt - 0) write (6, *) ' ***** ierr is gt . 0 (stibi) ierr=' , ierr 

cpd ( i, j) =cps 
7500 continue 


iw-0 

iendsw ( 3 ) -2 
iendsw (4 ) =2 

do 8000 i=l,imax 
do 8000 j=l, jmax 

call stibi ( iopt , im, jm, xx, phit , im, vet, iendsw, endxl 
& , endxn, endyl, endyn, endxy, sigma,mx,my, x (i) , y ( j ) , iw, mz, ves, 
&linout,wk, ierr) 

if (ierr .gt . 0) write (6, *) ' ***** ierr is gt . 0 (stibi) ierr=' , ierr 

ve (i, j ) =ves 
8000 continue 


iw=0 


do 9000 i=l,imax 
do 9000 j=l , jmax 

call stibi ( iopt , im, jm, xx, phit, im, costht , iendsw, endxl 
&, endxn, endyl, endyn, endxy , sigma, mx, my, x (i) , y ( j ) , iw, mz, cosths , 
&linout , wk, ierr) 

if (ierr .gt . 0) write (6, *) ' ***** ierr is gt . 0 (stibi) ierr=' , ierr 

costh (i, j) =cosths 
9000 continue 

do 6000 i=l,imax 
do 6000 j=l, jmax 
ph5=y ( j ) -pio2 
call val (x (i) , ph5, r5, rx, 0) 
xpd ( i , j ) =x ( i ) 
ypd (i, j) =-r5* (-cos (ph5) ) 
zpd (i, j ) =r5*sin (ph5) 

6000 continue 

c obtain hi and si 

do 600 j=l,jmax 
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si <1, j)=sqrt (xpd(l, j) **2+ypd(l, j) **2+zpd(l, j) **2) 
hl(l, j)=sl(l, j)/x(l) 
do 610 i=2,imax 

ds l=sqrt ( (xpd(i, j) -xpd(i-l, j) ) **2+(ypd(i, j) -ypd(i-l, j) ) **2 
& +(zpd(i, j) -zpd(i-l, j) ) **2) 
si (i, j) =sl (i-1, j) +dsl 
hl(i, j)=dsl/(x(i)-x(i-l) ) 

610 continue 

600 continue 

c obtain h2 by f-d 

do 790 n=l , jmax-1 

dy (n) =y (n+1) -y (n) 

790 continue 

do 2200 1=1, imax 

do 840 n=l, jmax 

dxpdy= (dy (n-1) **2*xpd (1, n+1) - (dy (n-1) **2-dy (n) **2 ) 

& *xpd(l,n) -dy (n) **2 *xpd ( 1 , n-1 ) ) / (dy (n) *dy (n-1) * (dy (n) 

& +dy (n-1) ) ) 

dypdy= (dy (n-1 ) **2*ypd(l,n+l) - (dy (n-1) **2-dy(n) **2) 

& *ypd (1, n) -dy (n) **2*ypd (1, n-1) ) / (dy (n) *dy (n-1) * (dy (n) 

& +dy (n-1) ) ) 

dzpdy= (dy (n-1 ) **2 * zpd ( 1 , n+1 ) - (dy (n-1 ) **2-dy (n) * *2 ) 

& *zpd(l,n) -dy (n) * *2 *zpd < 1 , n-1 ) ) / (dy (n) *dy (n-1) * (dy (n) 

& +dy (n-1 ) ) ) 


if (n . eq. 1 ) then 

dxpdy= ( xpd (1,2) -xpd ( 1 , 1 ) ) / dy ( 1 ) 
dypdy= (ypd (1,2) -ypd (1, 1 ) ) /dy ( 1) 
dzpdy= ( zpd ( 1 , 2 ) - zpd ( 1 , 1 ) ) /dy ( 1 ) 
endif 

if (n . eq . jmax) then 

dxpdy= (xpd ( 1, jmax) -xpd (1, jmax-1 ) ) /dy ( jmax-1 ) 
dypdy= (ypd (1, jmax) -ypd (1, jmax-1) ) /dy (jmax-1) 
dzpdy= (zpd(l, jmax) -zpd(l, jmax-1) ) /dy ( jmax-1) 
endif 

h2 (1, n) =sqrt (dxpdy**2+dypdy**2+dzpdy**2 ) 

840 continue 
2200 continue 

rewind 22 

write (22, 463) imax, jmax 
write (22, 461) (x (i) , i=l , imax) 
write (22, 461) (y ( j ) , j = l , jmax) 
do 460 i=l, imax 
do 460 j=l, jmax 

write (22, 462) i, j , xpd (i, j) , ypd (i, j) , zpd (i, j),sl(i,j),ue(i,j) 
&, ve(i, j) ,hl (i, j) ,h2 (i, j) ,costh(i, j) ,cpd(i, j) 

460 continue 

461 f ormat (5 ( lx, el3 . 6) ) 

462 format (2i4 , 5 ( lx, el3 . 6 ) /8x, 5 ( lx, el3 . 6) ) 

463 format (2il0) 

stop 

end 
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PART 3. 


STREAMLINE COORDINATE PROGRAM (SCC) 

3.1 Program Description 

Program SCC is used for the generation of the boundary-layer edge conditions based on 
the streamline coordinates for the general fuselage. This code reads the numerical inviscid 
solution based on the Cartesian coordinates (x', y * , z\ u^/V^, u y t/V. oo, ^z'/Vooi Cp) on the 
inviscid grid and calculates the boundary-layer edge conditions (x', y\ z', u t fV Qoy v t /V OQ , 
s, Cp) on the streamline boundary-layer grid. 

A geometry program which defines the fuselage is required to run the SCC code. This 
code is written to be generally applied, so any geometry routine, which returns the body 
radius r for given axial coordinate X and angle <f > , can be used. Because the raw data 
defining the sample case general aviation fuselage were nonsmooth, a semi-analytic geome- 
try program specially made for this fuselage by Raymond L. Barger at the NASA Langley 
Research Center is used. It should be noted that the angle <f> must be defined as — 7r/2 
and 7r/2 on the windward and leeward lines of symmetry, respectively, in this geometry 
routine. 

To calculate the streamline coordinates, a method developed by Hamilton et al. [3] 
is used (for detail, see Appendix D.2 of Volume I). Program SCC is modified from the 
code developed by Hamilton et al.. A fourth order Runge-Kutta method is used for the 
integration, and a bidirectional cubic spline-under-tension subroutine is used for the inter- 
polation. 
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3.2 Structure of Main Program SCMAIN 


The flow chart for the main program SCMAIN is in Fig. 5. The program first calls 
subroutine INPUT. The x and y distributions for the boundary-layer grid are given in 
subroutine INPUT. Subroutine INVDAT is called to read the inviscid solution from the 
inviscid code. The calculation of the inviscid velocity components based on the spherical 
coordinates from those based on the Cartesian coordinates is done in this subroutine. 
Subroutine INVDAT also includes the extrapolation of the inviscid properties (like u„, Cp, 
ur, u©) on the lines of symmetry. 

If the nose of the body is blunted, subroutine STAGLO is called to locate the stagnation 
point. The values of x' 3 and z 3 are obtained in this subroutine; subroutine ECON is 
then called to locate the initial locations of the streamlines; the angle 6 r and the velocity 
gradients at the stagnation point (A, B, C *) are calculated in the main program. However, 
if the nose of the body is sharp, no subroutine is required to locate the initial streamline 
locations, and x' 3 , z 3 , 6 r , A , B , and C* are not calculated. 

To generate the orthogonal streamline coordinates, the initial locations of the stream- 
lines are readjusted by integration along the streamlines to an x — const plane. Then, 
the integration along the streamlines for each streamline is performed using the fourth 
order Runge-Kutta method. For the integration, subprogram KRUNGE, subroutine FCN, 
and geometry subroutine VAL (CSGEOM when using QUICK geometry program [2] ) are 
used. Each step (for each i-th and j-th step), x ' , y', z', u e /V <*,, s, hi (= /u t ), and Cp 

are saved. After the integrations are finished, the metric coefficient h -2 is calculated. For 
a sharp nose body, the velocity components (u e /V oo, t^/Voo) based on the body-oriented 
coordinate system are calculated for i=l. Finally, the outputs, which are to be used as 
inputs to the boundary-layer code, are written in the file fort.25. 

Parameters IM and JM provide the flexibility of changing the dimensions of the inviscid 
grid to be read. These parameters are given in the main program SCMAIN and subroutines 
INVDAT, FCN, STAGLO. The parameter IM should be the number of inviscid grid points 
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in the streamwise direction plus 1, i.e., IM=NT+1. The parameter JM should be the 
number of inviscid grid points in the crosswise direction plus 2, i.e., JM=NP+2. The 
parameters IM and JM must be same for all subroutines which use these parameters. 

Parameters IMAXD and JMAXD provide the flexibility of changing the dimensions of 
the boundary-layer grid in the streamwise and crosswise directions. These parameters are 
given in the main program SCMAIN and subroutine INPUT. IMAXD may be different 
from IMAX, but should be greater or equal to IMAX. Also, JMAXD may be different 
from JMAX, but should be greater or equal to JMAX. The dimensions of the common 
blocks and the local variable arrays are controlled by changing these parameters, IM, JM, 
IMAXD, and JMAXD. 
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Fig. 5. Flow Chart for the Main Program SCMAIN. 
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3.3 Subroutine Description 


Subroutine DUDY(X1, X2, X3, Yl, Y2, Y3) 

• Called by subroutine INVDAT. 

• Used to obtain the inviscid properties (u e /V Cp, R, u R /V 0 Q , u©/F M ) on the lines 
of symmetry. 

• Calculates Y3 at X3 by the second order Lagrangian extrapolation, utilizing the 
symmetry condition at X3 and with given (XI, Yl) and (X2, Y2). 

Subroutine ECON(TH, XOSP, PHI, X) 

• Called by the main program SCMAIN and calls subroutine CSGEOM. 

• Used to obtain X from given X 03p , 0 and <j> on the e-cone using Newton’s method. 


Subroutine FCN 

• Called by the main program SCMAIN and calls subroutine STIBI. 

• Parameters IM and JM are given. 

• Calculates u e /V <*>, ur/V^,, Uq/V 0 0 , u^/V and Cp on the surface for given X and <j> 
and follows with the calculation of the derivatives of X, <f> and s with respect to x, 
i.e., F(l), F(2), and F(4). 
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Subroutine IUNI 


Called by subroutine STAGLO. 

Avaiable as a mathematical library routine at NASA Langley Research Center. 

Interpolates one function of one independent variable at a single value of each of the 
independent variables at each call. Conventional first- or second-order Lagrangian 
interpolation is used. In SCC, the independent variable is 7r ©. 


Subroutine INPUT 

Called by the main program SCMAIN. 

Parameters IMAXD and JMAXD are given. 

IMAX and JMAX are given. 

The x-distributions are given for i=l,2,..,IMAX. 
The y-distribution is given for j=l,2,..,JMAX. 


Subroutine INVDAT 

Called by the main program SCMAIN and calls subroutine DUDY. 

Parameters IM and JM are given. 

Reads the numerical inviscid solution based on the Cartesian coordinates (x , y , z , 
wv/Ko, U„./V oo, u*./F< oo, and Cp) on the inviscid grid. 

Then calculates the inviscid velocity components in the spherical coordinates (ur/V oo, 
uq/Voo, u^/Voo ) and spherical coordinates {R, 0, <£) on the inviscid grid. 
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• Extrapolates the inviscid velocity in the spherical coordinates [ur/V 0 q , uq/V oo ? and 
tt./Voo), Cp, and R on the lines of symmetry, utilizing the symmetry condition along 
these lines. 

• Adds one array in the x-direction and two arrays in the y-direction for the nose point 
and for the two (windward and leeward) lines of symmetry. 


Function KRUNGE (Y, F, X, H, N, MR) 

• Called by the main program SCMAIN. 

• Integrates along the streamlines using 4-th order Runge-Kutta method. 

• Returns KRUNGE =1 while the integration is being done. 

KRUNGE=2 when the integration is finished. 

• Arguments are 

Y: Array of N dependent variables 
F: Array of the N derivatives of the variable Y 
X: Independent variable 
H: Stepsize AX 

N: Number of differential equations to be solved (N=4 for SCC) 

MR: index for the following options 

MR=0; variable stepsize 4-th order Runge-Kutta method. Using this option, 
the stepsize H is automatically determined for accurate integration. 

(not currently used in this code.) 

MR=2; original predetermined stepsize 4-th order Runge-Kutta method. 
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Subroutine LAGEXT(X1, X2, X3, Yl, Y2, Y3, Cl) 


• Called by subroutine INVDAT. 

• Used to obtain the inviscid properties {u e /V oo, Cp, R, ur/V u@/V ) at nose point. 

• Calculates Cl at X=0 by second order Lagrangian extrapolation with given (XI, Yl), 
(X2, Y2) and (X3, Y3). 


Subroutine STAGLO 

• Called by the main program SCMAIN and calls subroutine IUNI. 

• Parameters IM and JM are given. 

• Locates the stagnation point from the inviscid data. The location of the stagnation 
point is assumed to be where u© is zero. 

• Interpolates R at the stagnation point and calculates x' s and z'. 


Subroutine STIBI 


• Called by subroutine FCN. 

• Avaiable as a mathematical library routine at NASA Langley Research Center. 

• Interpolates the spline under tension approximation to one function of two indepen- 
dent variables. Input values of the function are specified at all nodes of a rectangular 
grid. Output values may be requested at one or more individual points or at all 
nodes of a second rectangular grid. In SCC, the two independent variables for the 
interpolation are X and <^>. 


120 



Subroutine VAL(X, <t > , r, rx, N) 


• Called by main program SCMAIN and subroutine ECON. 

• This is a geometry subroutine to interrogate the radius(r) for a given X and <j>. 

• Output: r only if N=0; r and rx(— dr / dx) if N=1 

• Must be supplied by the user. 
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3.4 Parameter and Variable Directory 


ASTAR A, stagnation point velocity gradient in the x* direction 

BSTAR B, stagnation point velocity gradient in the y* direction 

CAVT(I,J) V(/Voo 5 inviscid total velocity on the inviscid grid 
CPP Cp, pressure coefficient 

CPD(I,J) Cp, pressure coefficient on the boundary-layer grid 

CSTAR C*{= BjA) 

CTH cos © 

DXPDY dx'/dy 

DY(J) Ay 

DYPDY dy'/dy 

DZPDY dz'/dy 

ENDX1,ENDXN,ENDY 1 ,ENDYN,ENDXY 

Arguments of the interpolation subroutine STIBI 
EOR e, small angle to locate the initial streamlines near the stagnation point 

F(l) DX/Dx 

F(2) D<f>l Dx 

F(4) Ds/Dx 

Hl(I,J) hi on the boundary-layer grid 

H2(I,J) h 2 on the boundary-layer grid 

IM number of inviscid grid points in the x-direction including the nose point 

IMAX actual number of boundary-layer grid points in the x-direction 

IMAXD maximum possible number of boundary-layer grid points in the x-direction 

(IMAXD>IMAX) 

IENDSW, IERR, IOPT, IW 

Arguments of the interpolation subroutine STIBI 
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IORDER, IPT, IERR 

Arguments of the interpolation subroutine IUNI 
JM number of inviscid grid points in the y-direction, including the lines of 


JMAX 

JMAXD 

KPOINT 

LINOUT 

NP 

NPI 

NT 

NTI 

PI 

RT(I,J) 

PCOEF(I,J) 

PHIT(J) 

RADIUS(I,J) 

RXSTAG 

RX,RP 

SIGMA 

SR 

STH 

THETAR 


symmetry 

actual number of boundary-layer grid points in the y-direction 
maximum possible number of boundary-layer grid points in the y-direction 
(JMAXD > JMAX) 

=1 when the shape of nose is sharp 
=0 when the shape of nose is blunted 
Argument of the interpolation subroutine STIBI 

number of grid points in the y-direction in the numerical inviscid data 
number of inviscid grid points in the y-direction, including the lines of 
symmetry (NPI=NP+2) 

number of grid points in the x-direction in the numerical inviscid data 
number of inviscid grid points in the x-direction, including the nose point 
(NTI=NT+1) 

7T 

R on the inviscid grid 
Cp on the inviscid grid 
<{> on the inviscid grid 
r on the boundary-layer grid 
dr jdX at the stagnation point 
dr/dX, dr/d(j> 

Arguments of the interpolation subroutine STIBI 
r 

sin 0 

dr 
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THSTAG 

0s 

UE(I,J) 

U e/V<x> on the boundary-layer grid 

UPT(I,J) 

u^/Vco on the inviscid grid 

URT(I,J) 

ur/V, 30 on the inviscid grid 

U3T(I,J) 

u e/Yoo on the inviscid grid 

V 

Ue/Voo 

VE(1,J) 

v e /Voo based on the body-oriented coordinate system at i=l 

VP 

oo 

VR 

Ur/Voo 

VT 

^©/^oo 

VX(I,J) 

«i'/Yoo on the inviscid grid 

VY(I,J) 

U v'/V<x> ° n the inviscid grid 

VZ(I,J) 

u z >fV { oo ° n the inviscid grid 

WK 

Arguments of the interpolation subroutine STIBI 

X(I) 

x { 

XIN(I) 

X on the inviscid grid 

XO(I,J) 

x' on the inviscid grid 

XOSP 

X oap , X of the origin of the spherical coordinates ( X osp = 1 is 
used in this code) 

XPD(I,J) 

x 1 on the boundary-layer grid 

XPS 

x' a , x 1 of the stagnation point 

X3TP(I) 

n — 0 on the inviscid grid along the windward line of symmetry 

Y(J) 

t/y for the boundaxy-layer grid 

YY(l) 

X 

YY(2) 


YY(4) 

s 

YO(I,J) 

y' on the inviscid grid 
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YPD(I,J) 

ZO(I,J) 

ZPD(I,J) 

ZPS 


y' on the boundary-layer grid 
z' on the inviscid grid 
z' on the boundary-layer grid 
z[, z' of the stagnation point 
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3.5 Input 


The input to SCC is given or read through subroutine INPUT and INVDAT, as follows: 
(1) In subroutine INPUT, the following quantities are given instead of being read from a 
file. 

KPOINT =1 when the shape of nose is sharp. 

=0 when the shape of nose is blunted. 

EOR =e, small angle to locate the initial streamlines near the stagnation point, 

typically 0.01. It should be noted that if the inviscid solution near the 
stagnation point (or near the nose) is not accurate, this value should be 
increased. EOR is needed only if KPOINT is 0, i.e., for the blunted 
nose body. 

The x and y distributions for the streamline boundary-layer grid are specified. 

First, IMAX and x(t) for i=l,2,..,IMAX are set. 

For the blunted nose body, x, = i is not used and does not affect the boundary-layer solution. 
Therefore, x, = j can be given as zero or another small value like 0.01. Initial locations of 
the streamlines are determined by EOR. For the sharp nose body, x, = i is nearly the same 
as Xi-i, and x l=1 should not be so small that it restricts the next step sizes (Ax). The x 
distribution can be given arbitrarily. However, the stepsizes(Ax) near the nose must be 
small to obtain nonoscillating boundary-layer parameters. 

Next, JMAX and y(j) for j=l,2,..,JMAX are set, 
where Y(l)=0 on the windward line of symmetry, and Y(JMAX)=7 t on the leeward line 
of symmetry. In this coordinate system, the y distribution is used to locate the initial 
streamlines near the stagnation point or near the nose tip. This y-distribution can be 
given arbitrarily. Even when a uniform grid distribution in the y direction is given, the 
downstream grid spacings will generally become nonuniform. 
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(2) The numerical inviscid solution based on the Cartesian coordinates are read through 
subroutine INVDAT. This sets the values of 

x' , y', z' , u x i/Voo, Uy'/V oo, Uz'/Voo, Cp for i=l,2,..,NT, j=l,2,..,NP. 

It is to be noted that j is increasing from the windward line of symmetry to the leeward 
line of symmetry. 
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3.6 Output 


The output from SCC, which can be used as input for 3DBLC, is written by the main 
program SCMAIN on file fort. 25. The output lists the boundary-layer edge conditions 
including the following: 
x' s , z' s , e r , A, B, C* 

(These quantities are given only for the blunted nose body; for the sharp nose body, they 
are not given.) 

a:(t) for i=l,2,..,IMAX 
y{j) for j=l,2,..,JMAX 

x 1 , y', z', uJV oo, vjVoo, s, h 2 , Cp for i=l,2,..,IMAX, j=l,2,..,JMAX 
Here, hi is not necessary; it will be defined as Voo/ug in 3DBLC. Because the streamline 
coordinates system is used, v e and cos 0 are zero throughout the field. However, it should 
be noted that the velocity components based on the body-oriented coordinate system are 
calculated for i=l when using the streamline coordinates on the sharp nose body; therefore 
v e for i=l may not be zero in this case. 
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3.7 Sample Case 


For a sample case, the boundary-layer edge conditions on the streamline boundary- 
layer grid on a general aviation fuselage at an angle of attack 3° are calculated. The 
inviscid solution was obtained using a 53x36(IxJ) inviscid grid from the Hess code [l] for a 
compressible flow (M^ = 0.3). To reduce the input data, only the first 15x36(IxJ) inviscid 
grid solution is used for this sample case. The input data for the inviscid solution is the 
same as that used for the calculation of the body-oriented boundary-layer grid in Part 2. 
Also, to reduce the size of the output data, only a 20x31 (IxJ) streamline boundary-layer 
grid is generated, i.e., 31 streamlines are integrated for 20 steps. For this case, parameters 
are given as IM=16(=15+l), JM=38(— 36+2), IMAXD=100 (> 20), JMAXD=51 (> 31). 

For the sample case input, the subroutine INPUT program is presented. Since the 
inviscid solution used for this code is the same as that used for BCC, the inviscid solution 
is not listed here. The output written on file fort. 25 is presented for a sample case output. 
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3.7.1 Sample Case Input 


c###################################################################### 

subroutine input 

c### ################################################################### 

c * * ** 

c** subroutine to read input data ** 


parameter (im=16, jm=3 8 , imaxd=100, jmaxd=51 ) 

common/ coml/pi, pio2, dtr, rtd 

common/com2/ir, iw 

common/point/kpoint 

common /com5/ imax, jmax 

common/com6/eor 

common/sll/x ( imaxd) , y(jmaxd) 


ir=10 

iw=6 


0*********************************************************************** 

c 

c description of inputs 

c imax= no. of steps in the streamline direction 

c jmax=number of streamlines to be computed 

c eor=ratio of epsilon to r on starting circle 

c {approx. value= . 01, but, if the inviscid solution near the 

c stagnation point is not accurate, this value should be 

c increased up to 0.05) 

c 

0*********************************************************************** 

imax=20 
jmax-3 1 

kpoint=0 
eor=Q . 05 

c 

c x-distribution is given 

c 

x (1) =0 . 001 

do 250 i=2,imax 

if (i . le . 5) dx=0 .0005 

if <i . gt . 5 . and. 1 . le . 20) dx=0 .002 

if (i .gt . 20 . and. 1 . le . 80) dx=0 . 01 

if (i .gt . 80) dx=0 .04 

x ( i ) =x ( i - 1 ) +dx 

write ( 6, *) ' i=' , i, ' x=' , x (i) 

250 continue 

c 

c y-dist ribution is given 

c 

pi=acos (-1 . ) 
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do 270 i=l, jmax 

y (i) =pi* (1 . - ( jmax-i) / ( jmax-1 . ) ) 

270 continue 

if (imax. gt . imaxd) write ( 6, *) ' change imaxd to' , imax 
if { jmax.gt . jmaxd) write ( 6, *) ' change jmaxd to' , jmax 

pio2=pi/2 . 
dtr=pi/ 1 8 0 . 
rtd=18 0/pi 

return 

end 
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3.7.2 Sample Case Output 


0 . 588477E-03-0 . 613555E-02 0.168517E+00 0.110475E+02 0.801237E+01 0.725267E+00 
20 31 

0.1000 0 0E-02 0.150000E-02 0.200000E-02 0.250000E-02 0.300000E-02 

0.500000E-02 0.700000E-02 0.900000E-02 0.110000E-01 0.130000E-01 

0 . 150000E-01 0.170000E-01 0.190000E-01 0.210000E-01 0.230000E-01 

0 . 250000E-01 0.270000E-01 0.290000E-01 0.310000E-01 0.330000E-01 

0 . OOOOOOE+OO 0 . 10 4720E+0 0 0.209440E+00 0.314159E+00 0.418879E+00 

0.523599E+00 0.628319E+00 0.733038E+00 0.837758E+00 0.942478E+00 

0.104720E-f-01 0.115192E+01 0.1256C4E+01 0.136136E+01 0.146608E+01 

0.1570 8 OE+0 1 0 . 1 67552E+0 1 0.178024E+01 0.188496E+01 0.198968E+01 

0 . 20 9440E + 0 1 0.219911E+01 0 . 230383E+ 01 0.240856E+01 0.251327E+01 

0 .2 617 9 9E + 0 1 0 . 272271E+01 0.282743E+01 0.293215E+01 0.303687E+01 

0 .314159E+01 

1 1 0 .2131660E-01 0 . 1727211E-07 -0 . 5502 135E-0 1 0 . 530 98 7 5E-0 1 

0 .5565680E+00 0 . OOOOOOOE+OO 0 . 4906141E-01 0 . 7 0 1 1 4 93E + 0 0 

1 2 0 .2140342E-01 0 . 513 654 9E-02 -0 . 5495409E-01 0 . 533 18 8 1E-0 1 

0 .5568949E+00 0 . OOOOOOOE+OO 0 . 4909295E-01 0 . 7 0 0 7 8 6 1E+0 0 

1 3 0 .2150218E-01 0 . 1026911E-01 -0 . 5454088E-01 0 . 5372 07 OE-O 1 

0 .5562661E+00 0 . 0000000E+00 0 . 4925086E-01 0 . 7 0 151 8 8E+0 0 

1 4 0 .2161471E-01 0 . 15382 45E-0 1 -0 . 5378032E-01 0 . 543023 6E-0 1 

0 . 554 68 48E+00 0 .OOOOOOOE+OO 0 . 4 94 90 43E-01 0 . 7 0334 01E+0 0 

1 5 0 .2173857E-01 0 . 2 0 4 60 1 1E-0 1 -0 . 5266307E-01 0 . 55 0 522 7E-0 1 

0 . 552238 4E+0 0 0 .OOOOOOOE+OO 0 . 498 62 3 0E- 01 0 . 7061423E + 00 

1 6 0 .2187476E-01 0 . 2 5 4 930 1E-0 1 -0 . 5117871E-01 0 . 55 9 632 5E-0 1 

0 .5490109E+00 0 .OOOOOOOE+OO 0 . 5038423E-01 0 . 7098241E+00 

1 7 0 .2201824E-01 0 . 30 4 6072E-0 1 -0 . 4 930 693E-0 1 0 . 57 0 1 62 9E-0 1 

0 . 5448 820E+00 0. OOOOOOOE + OO 0. 5114413E-01 0 . 7144 900E + 0 0 

1 8 0.2217211E-01 0 . 3536104E-0 1 -0 . 4702277E-01 0 . 5 82 0 67 1E-0 1 

0 .5400218E+00 0 . OOOOOOOE+OO 0 . 5223080E-01 0 . 7 1 9 932 1E+0 0 

1 9 0 .2233158E-01 0 . 4017415E-01 -0 . 442852 9E-01 0 . 5 951577E-0 1 

0 .5344703E+0 0 0 . OOOOOOOE + OO 0 . 5378800E-0 1 0 . 72 60 934E+0 0 

1 10 0 . 22 4 972 1E-0 1 0 . 4 48 95 62E-0 1 -0 . 4103163E-01 0 . 60 93723E-01 

0 .5283826E+00 0 .OOOOOOOE+OO 0 . 5586878E-01 0 . 732 775 9E+0 0 

1 11 0 .2265898E-01 0 . 4 947 0 8 6E-0 1 -0 . 3718742E-01 0 . 62 4 3 951E-0 1 

0 .5218 853E+00 0 . 0 0 0 0 0 0 OE + OO 0 . 5859625E-01 0 . 7 3 9 823 1E + 0 0 

1 12 0 .2281635E-01 0 . 538517 9E-01 -0 . 32 64734E-01 0 . 640 0 75 8E-0 1 

0 . 5152732E+00 0 .OOOOOOOE+OO 0 . 6222019E-01 0 . 7469040E+00 

1 13 0 .2296127E-01 0 . 57 9322 8E-0 1 -0 . 2728133E-01 0 . 65 60 3 6 1E-0 1 

0 . 5088 928E+00 0 . OOOOOOOE+OO 0 . 665 9305E-01 0 . 753 64 0 1E + 0 0 

1 14 0 .2307175E-01 0 . 614 952 9E-0 1 -0 . 2098388E-01 0 . 67138 97E-01 

0 .503608 6E+00 0 . OOOOOOOE+OO 0 . 7128835E-01 0 . 75 91 63 6E+00 

1 15 0 .2312814E-01 0 . 6423390E-0 1 -0 . 1374677E-0 1 0 . 68 4 97 9 OE-O 1 

0 .50 033 4 6E+00 0 . OOOOOOOE + OO 0 . 7 5 93352E-01 0 . 7 625557E+0 0 

1 16 0 .2309866E-01 0 . 6578106E-01 -0 . 5 668722E-02 0 . 6 9527 4 5E-0 1 

0 . 4999020E+00 0 . 00 00 0 OOE+O 0 0 . 7778996E-01 0 . 7 62 97 62E+00 

1 17 0 .2290910E-01 0 . 6580716E-01 0 . 2467883E-02 0 . 7 0 02 00 8E-0 1 

0 . 5015913E+00 0 . OOOOOOOE+OO 0 . 7722396E-01 0 . 7 6 12 1 4 OE+O 0 

1 18 0 .2243826E-01 0 . 64 5 9 934E-0 1 0 . 1044825E-01 0 . 70 18203E-01 

0 .50 4322 4E+00 0 . 00 00 0 OOE+O 0 0 . 8050317E-01 0 . 7583557E + 0 0 

1 19 0 .2193052E-01 0 . 6172 913E-01 0 . 187 9850E-0 1 0 . 69911 90E-01 

0 .5133672E+00 0 . OOOOOOOE+OO 0 . 8181310E-01 0 . 7488213E+00 

1 20 0 .2140341E-01 0 . 5727 1 1 3E-0 1 0 . 2590239E-01 0 . 68 8 4533E-0 1 

0 .52 62 8 01E + 00 0 . OOOOOOOE+OO 0 . 7560533E-01 0 . 734 91 93E + 00 

1 21 0 .2091940E-01 0 . 5207 658E-01 0 . 3131036E-01 0 . 672 8 67 9E-0 1 

0 .5397345E+00 0 .OOOOOOOE+OO 0 . 6744111E-01 0 . 7200 801E+00 
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1 

22 

0.204998 5E-0 1 
0 . 551 9031E+0 0 

1 

23 

0 . 2 0 1503 9E-0 1 
0 . 5621388E+00 

1 

24 

0.198 667 6E-01 
0.5708 0 42E + 0 0 

1 

25 

0 . 1 9 64 075E-0 1 
0 .5781351E + 00 

1 

26 

0.194677 OE-0 1 
0 . 58 42 40 9E + 0 0 

1 

27 

0 . 1 934543E-0 1 
0 . 58 9142 6E+0 0 

1 

28 

0 . 1 92 7 17 6E-0 1 
0 . 5 93157 4E + 0 0 

1 

29 

0 . 1924171E-01 
0 . 5 9 61 6 60E + 0 0 

1 

30 

0 . 1924910E-01 
0 .5980836E+00 

1 

31 

0 . 1 92 82 87E-0 1 
0.598978 1E+0 0 

2 

1 

0 .2179582E-01 
0 . 56148 40E + 00 

2 

2 

0 . 218 8341E-01 
0 .5617936E+00 

2 

3 

0 .2198177E-01 
0 . 5611313E+00 

2 

4 

0 . 220 9350E-01 
0 . 55 95 18 6E + 0 0 

2 

5 

0 .222162 6E-0 1 
0.557 03 4 9E+0 0 

2 

6 

0 .2235098E-01 
0 . 5537 60 5E+0 0 

2 

7 

0 .2249260E-01 
0 .5495713E+00 

2 

8 

0 . 22 64 4 02E-0 1 
0 .5446277E+00 

2 

9 

0 .2280058E-01 
0 . 538 987 9E + 0 0 

2 

10 

0 . 22 9 627 6E-0 1 
0 . 532772 OE+O 0 

2 

11 

0 .2312056E-01 
0 .5261195E+00 

2 

12 

0.2327308E-01 

0.5193416E+00 

2 

13 

0 .2341231E-01 
0 . 5127575E + 0 0 

2 

14 

0 .2351658E-01 
0 . 5072 6 91E+0 0 

2 

15 

0 .2356654E-01 
0 .5038256E+00 

2 

16 

0.2353 0 9 9E-0 1 
0.5032 8 7 4E + 0 0 

2 

17 

0 .2333421E-01 
0 . 504 9234E+00 

2 

18 

0 .2285100E-01 
0.507 64 0 9E+0 0 

2 

19 

0 . 2233290E-01 
0 .5167842E + 00 

2 

20 

0 . 2180382E-01 
0 . 5299179E+00 


0.467 6031E-0 1 
0.0000000E+00 
0 . 4152218E-01 
0 .OOOOOOOE-fOO 
0 .3636179E-01 
O.OOOOOOOE+OO 
0 . 3123998E-01 
O.OOOOOOOE+OO 
0 .2611776E-01 
O.OOOOOOOE+OO 
0 .2096435E-01 
O.OOOOOOOE+OO 
0 . 1577314E-01 
O.OOOOOOOE+OO 
0 . 10537 4 6E-01 
O.OOOOOOOE+OO 
0 .5274452E-02 
0 . OOOOOOOE+OO 
0 . 1473854E-07 
0 . OOOOOOOE+OO 
0 . 17 46 645E-07 
0 . OOOOOOOE+OO 
0 .5177084E-02 
O.OOOOOOOE+OO 
0 . 103500 IE-01 
O.OOOOOOOE+OO 
0 .1550486E-01 
O.OOOOOOOE+OO 
0 .2062491E-01 
O.OOOOOOOE+OO 
0 .2570241E-01 
0 .OOOOOOOE+OO 
0 .3071575E-01 
O.OOOOOOOE+OO 
0.3566447E-01 
0 .OOOOOOOE+OO 
0.4052821E-01 
0 .OOOOOOOE+OO 
0 . 4530410E-01 
0 . OOOOOOOE+OO 
0 . 4 9 9354 0E-01 
0 .OOOOOOOE + OO 
0 .5437367E-01 
O.OOOOOOOE+OO 
0 . 5851100E-0 1 
0 . OOOOOOOE + OO 
0 . 6212427E-01 
0 . OOOOOOOE+OO 
0 . 648 9927E-01 
O.OOOOOOOE+OO 
0 . 6645918E-01 
0 .OOOOOOOE+OO 
0 . 6647235E-01 
0 . OOOOOOOE+OO 
0 . 6523132E-01 
0 . OOOOOOOE+OO 
0 . 6228468E-01 
O.OOOOOOOE+OO 
0 . 5773133E-0 1 
O.OOOOOOOE+OO 


0 .3529478E-01 
0 . 6052845E-01 
0 .3829034E-01 
0 .5584310E-01 
0 . 40 610 95E-01 
0 . 52 9927 9E-01 
0 . 42 43757E-0 1 
0 .5137400E-01 
0 . 4387778E-01 
0 . 5058524E-0 1 
0 . 4 50004 6E-0 1 
0.502 8 61 OE-0 1 
0 . 4584524E-01 
0 .5025856E-01 
0 . 46438 96E-01 
0 .5033484E-01 
0 . 4680067E-01 
0 . 5037227E-01 
0 . 4695051E-01 
0 . 5038835E-01 
-0 . 5 5 6 4 0 45E-0 1 
0 . 4944862E-01 
-0 . 5557247E-01 
0 . 49479 65E-01 
-0 .5515593E-01 
0 . 4964374E-01 
-0 . 5439013E-01 
0 . 4989476E-01 
-0 . 532 657 8E-0 1 
0 . 50284 60E-01 
-0 .5177131E-01 
0 .5082739E-01 
-0.4988643E-01 
0 . 516147 6E-0 1 
-0 .4758431E-01 
0.527 4 0 67E-0 1 
-0 . 4482339E-01 
0 . 5435222E-01 
-0 . 4153778E-01 
0 .5649966E-01 
-0 .3765205E-01 
0 .5930579E-01 
-0.330567 6E-01 
0 . 630 4 157E-0 1 
-0 . 27 61688E-01 
0 . 67542 67E-01 
-0 .2122543E-01 
0 .7237005E-01 
-0 . 1387259E-01 
0 .7714403E-01 
-0 .5660761E-02 
0 . 7 898599E-01 
0 .2593581E-02 
0 . 7 835 972E-0 1 
0 . 1069070E-01 
0 . 8180487E-01 
0 . 1917689E-01 
0 . 8317882E-01 
0 .2637959E-01 
0 .7673556E-01 


0 . 6557 02 9E-0 1 
0 . 7063442E+00 
0 . 63878 18E-0 1 
0 . 6945565E + 00 
0 . 6228216E-01 
0 . 68 44117E+0 0 
0 . 608 1343E-0 1 
0 . 6757129E + 00 
0 .5949702E-01 
0 . 6683841E+00 
0 .5836282E-01 
0 . 66244 4 8E+0 0 
0 . 57 4 4 4 40E-0 1 
0 . 6575512E+00 
0 .5677200E-01 
0.6538659E+00 
0 . 5637625E-01 
0 . 6515038E + 00 
0 .5628153E-01 
0 . 6504023E+00 
0 . 5399316E-01 
0 . 6955535E+00 
0 . 542127 1E-0 1 
0 . 6952044E+00 
0 .5461563E-01 
0 . 69597 69E + 00 
0.5519986E-01 
0 . 6978442E+00 
0 . 5595375E-0 1 
0 .7007080E + 00 
0 . 5687005E-01 
0 .7044712E + 00 
0 .5792999E-01 
0 .7092392E + 00 
0 .5912866E-01 
0 . 7148145E+00 
0 . 6044734E-0 1 
0 . 7 2 1 12 0 5E+0 0 
0 . 6187959E-01 
0.727 9949E+00 
0 . 633 937 1E-0 1 
0 .7352641E+00 
0 . 6497413E-01 
0 .7425752E+00 
0 . 6658244E-01 
0 . 7495749E+00 
0 . 6812823E-01 
0 .7553512E+00 
0 . 6949377E-01 
0 .7589430E+00 
0 .7052428E-01 
0 .7594743E+00 
0 .7101363E-01 
0 .7577574E+00 
0 .7117021E-01 
0 . 7548 980E+00 
0 .7088262E-01 
0 . 7 452 02 4E+0 0 
0 . 6 97 92 0 9E-0 1 
0 . 7309731E+00 


133 



2 21 0 .2132332E-01 0 . 5244737E-01 0 . 3184580E-01 

0 . 5435712E+00 0 . OOOOOOOE+OO 0 . 6829768E-01 

2 22 0 .2090963E-01 0 . 4705848E-01 0 . 3586122E-01 

0 . 5558765E+00 0 . OOOOOOOE+OO 0 . 6116609E-01 

2 23 0 .2056615E-01 0 . 417 6251E-01 0 . 3887227E-01 

0 . 5661590E+00 0 . OOOOOOOE+OO 0 . 5633678E-01 

2 24 0 .2028803E-01 0 . 3655468E-01 0 . 4120019E-01 

0 . 5748472E+00 0 . OOOOOOOE+OO 0 . 5339361E-01 

2 25 0 . 2006708E-01 0 . 3139344E-01 0 . 4302998E-01 

0 . 5821734E+00 0 . OOOOOOOE+OO 0 . 5170918E-01 

2 26 0 . 1989845E-01 0 . 2623774E-01 0 . 4447069E-01 

0 . 5882506E+00 0 . OOOOOOOE+OO 0 . 5087377E-01 

2 27 0 . 1977963E-01 0 . 2105517E-01 0 . 4559236E-01 

0 . 5931367E+00 0 . OOOOOOOE+OO 0 . 5054139E-01 

2 28 0 . 1970879E-01 0 . 1583813E-01 0 . 4643583E-01 

0 . 5971373E+00 0 . OOOOOOOE+OO 0 . 5049000E-01 

2 29 0 . 1968082E-01 0 . 1057891E-01 0 . 4702801E-01 

0 . 6001134E+00 0 . OOOOOOOE+OO 0 . 5054935E-01 

2 30 0 . 1968937E-01 0 . 5294103E-02 0 . 4738881E-01 

0 . 6020176E+00 0 . OOOOOOOE+OO 0 . 5056964E-01 

2 31 0 . 1972364E-01 0 . 1492296E-07 0 . 47537 99E-01 

0 . 6029072E+00 0 . OOOOOOOE+OO 0 . 5057577E-01 

***** For brevity, output for i=3,4,..,19 is deleted 

20 1 0 . 5339842E-01 0 . 272227 9E-07 -0 . 8671987E-01 

0 . 7477883E+00 0 . OOOOOOOE+OO 0 . 6669593E-01 

20 2 0 . 5348459E-01 0 . 6982815E-02 -0 . 8659786E-01 

0 .7476993E+00 0 . OOOOOOOE+OO 0 . 6683928E-01 

20 3 0 .5356924E-01 0 . 1398360E-01 -0 . 8609015E-01 

0 .7468434E+00 0 . OOOOOOOE+OO 0 . 6734782E-01 

20 4 0 . 5365556E-01 0 . 2101623E-01 -0 . 8518595E-01 

0 . 7451553E+00 0 . OOOOOOOE+OO 0 . 6815946E-01 

20 5 0 . 5374004E-01 0 .2808297E-01 -0 . 8386260E-01 

0 . 7 42 607 6E+00 0 . OOOOOOOE+OO 0 . 6940788E-01 

20 6 0 .5382244E-01 0 . 3521694E-01 -0 . 8208281E-01 

0 .7392169E+00 0 . OOOOOOOE+OO 0 . 7109463E-01 

20 7 0 -5389548E-01 0 . 4240713E-01 -0 . 7979965E-01 

0 .7348646E+00 0 . OOOOOOOE+OO 0 . 7349938E-01 

20 8 0 .5396207E-01 0 . 4972142E-01 -0 . 7692862E-01 

0 .7294322E+00 0 . OOOOOOOE+OO 0 . 7683021E-01 

20 9 0 .5401718E-01 0 . 5715732E-01 -0 . 7336956E-01 

0 . 7228225E+00 0 . OOOOOOOE+OO 0 . 8137351E-01 

20 10 0 .5404890E-01 0 . 6477350E-01 -0 . 68 93575E-01 

0 . 7148196E+00 0 . OOOOOOOE+OO 0 . 8759296E-01 

20 11 0 . 5404298E-01 0 . 7255226E-01 -0 . 6339210E-01 

0 . 7053228E+00 0 . OOOOOOOE+OO 0 . 9571612E-01 

20 12 0 . 5399594E-01 0 . 8043021E-01 -0 . 5641630E-01 

0 . 694208 9E+00 0 . OOOOOOOE+OO 0 . 1068476E+00 

20 13 0 . 5387398E-01 0 . 8826607E-01 -0 . 4746002E-01 

0 . 6816097E+00 0 . OOOOOOOE+OO 0 . 1209916E+00 

20 14 0 . 5366346E-01 0 . 9550011E-01 -0 . 3604664E-01 

0 . 6688458E+00 0 . OOOOOOOE+OO 0 . 1365166E+00 

20 15 0 . 5336437E-01 0 . 1011360E+00 -0 .2193347E-01 

0 . 6585218E+00 0 . OOOOOOOE+OO 0 . 1514878E+00 

20 16 0 . 5300516E-01 0 . 1038876E+00 -0 . 5454816E-02 

0 . 6540886E+00 0 . OOOOOOOE+OO 0 . 15038 93E+00 

20 17 0 . 5240468E-01 0 . 1034006E+00 0 . 94 677 92E-02 

0 . 6534757E+00 0 . OOOOOOOE+OO 0 . 1472242E+00 

20 18 0 . 5117634E-01 0 . 1000908E+00 0 .2509039E-01 


0 . 6820989E-01 
0 .7158163E+00 
0 . 6647301E-01 
0 .7018342E+00 
0 . 647 6444E-01 
0 . 6899129E+00 
0 . 6315500E-01 
0 . 6796736E+00 
0 . 6167526E-01 
0 . 6709223E+00 
0 . 6034990E-01 
0. 6635808E+00 
0 . 5920864E-01 
0 . 6576238E+00 
0 . 5828453E-01 
0 . 6527157E+00 
0 . 57 607 92E-0 1 
0 . 6490469E+00 
0 . 5720951E-01 
0 . 6466888E+00 
0 . 5711355E-01 
0 . 6455870E+00 

★ * ★ * * 

0 . 1013265E+00 
0 . 4452463E+00 
0 .1015430E+00 
0 . 4453836E+00 
0 .1020083E+00 
0 . 4466891E+00 
0 . 1027191E+00 
0 . 4492517E+00 
0 . 1036662E+00 
0 . 4531115E+00 
0 . 1048481E+00 
0 .4582351E+00 
0 . 1062497E+00 
0 . 4647825E+00 
0 . 1078682E+00 
0 . 4728999E+00 
0 . 1096888E+00 
0 . 4827014E+00 
0 . 1117224E+00 
0 . 4944515E+00 
0 . 1139398E+00 
0 . 5082423E+00 
0 . 1163088E+00 
0 . 5241536E+00 
0 . 1187830E+00 
0 . 5418864E+00 
0 . 1211705E+00 
0 .5595481E+00 
0 .1231819E+00 
0 . 5736009E+00 
0 . 1244504E+00 
0 . 57 95627E+00 
0 . 1249033E+00 
0 . 5803867E+00 
0 . 1248460E+00 


134 


20 

19 

o o 

20 

20 

o o 

20 

21 

o o 

20 

22 

o o 

20 

23 

o o 

20 

24 

o o 

20 

25 

o o 

20 

26 

0 . 

0 . 
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0 . 


65542 63E+00 
50 07504E-0 1 
66 96919E + 00 
4 954 82 6E-0 1 

6 90 47 6 1E + 0 0 
4 93333 1E-0 1 
707 68 62E+00 
4 921 8 02E-0 1 
7199948E+00 
4913859E-01 
72 8 821 9E+0 0 
4 90 8 637E-0 1 

7 354 0 37E+0 0 
4 905048E-01 
7404506E+00 
4 903155E-0 1 
7 4 43505E + 0 0 
4903331E-01 
7 47 4 102E + 0 0 
4905703E-01 
7496761E+00 
4 90 92 1 4E-0 1 
7513192E+00 
4 913681E-01 
7523556E-f 00 
4 91 8 52 1E-0 1 
7 527 97 5E+0 0 


0. OOOOOOOE+OO 
0 . 9172904E-01 
0 .OOOOOOOE+OO 
0 .8077651E-01 
0. OOOOOOOE+OO 
0 .7029593E-01 
0. OOOOOOOE+OO 
0 . 6111583E-01 
0. OOOOOOOE+OO 
0 . 5299253E-01 
0 .OOOOOOOE+OO 
0 . 45567 11E-0 1 
0 .OOOOOOOE+OO 
0 .3858873E-01 
0. OOOOOOOE+OO 
0 .3189647E-01 
0. OOOOOOOE+OO 
0.2536306E-01 
0. OOOOOOOE+OO 
0 . 1893588E-01 
0. OOOOOOOE+OO 
0 . 1258 406E-01 
0. OOOOOOOE+OO 
0 . 62 43 6 6 IE-02 
0 . OOOOOOOE+OO 
0 . 2468921E-07 
0. OOOOOOOE+OO 


0 . 1 653035E+00 
0 .4197872E-01 
0 .1673374E + 00 
0.542 8 97 OE-0 1 
0 . 1403251E+00 
0 . 620741 5E-0 1 
0 . 1118721E+00 
0 . 67 0307 9E-0 1 
0 . 916 6 652E-0 1 
0 .7038915E-01 
0 .7919842E-01 
0 .7280654E-01 
0 .7165581E-01 
0 .7460219E-01 
0 . 6698 173E-01 
0 .7595491E-01 
0 . 6415582E-01 
0 . 7 6 97 457E-0 1 
0 . 62 4 5 47 1E-0 1 
0 .7772154E-01 
0 . 613 0 8 92E-0 1 
0 .7822889E-01 
0 . 6072512E-01 
0 .7853049E-01 
0 . 6011952E-01 
0 . 7864898E-01 
0 .5963464E-01 


0 . 577772 6E+00 
0 . 1235133E+00 
0 . 5583991E+00 
0 . 1209157E+0 0 
0 . 52 94422E+0 0 
0 . 117 9 985E+0 0 
0 .5048262E+00 
0 . 115250 6E + 0 0 
0 . 48 68 659E + 00 
0 . 1127 8 68E+00 
0 . 4738 0 1 OE+O 0 
0 . 1105964E+00 
0 . 4639657E+00 
0 . 10 8 6 677E+0 0 
0 . 4563653E+00 
0.10 698 83E+0 0 
0 . 450 4582E+0 0 
0 . 1055 67 9E+0 0 
0 . 4458036E+00 
0 . 104 427 6E + 0 0 
0 . 4 4233 98E+0 0 
0 . 10359 68E + 0 0 
0.43982 60E + 0 0 
0 . 1031012E+00 
0 . 4382 38 8E + 0 0 
0 . 102 9 61 4E + 0 0 
0 . 437560 6E + 00 
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3.8 FORTRAN Listing of SCO 

Subroutine IUNI, STIBI, and VAL are not presented here. 

c### ################################################################### 

program scmain 

c ###################################################################### 

c** 

c** program for calculating streamline coordinates 

c** with inviscid solution obtained from the numerical inviscid code 
c* * 

parameter ( im=l 6 , jm=38 , imaxd=100, jmaxd=51) 
common /cpcom/cpp 
common/ coml/pi, pio2 , dtr f rtd 
common /com2/ ir, iw 

common/com3/ iordr (2 ) , iptb (2 ) , ider 

common /com5/imax, jmax 

common/ com6/eor 

common/point /kpoint 

common/ sll /x (imaxd) , y( jmaxd) 

common/ invt ab/ phit < jm) , rt ( im f jm) , urt ( im, jm) 

1 , upt ( im, jm) , u3t ( im, jm) , cavt ( im, jm) , pcoef ( im, jm) 

2 , x3tp ( im) , xin { im) 
common/ invcon/ npi, nti, xosp 
common/ stgpt /thstag, xps, zps 
common/nn/n 

common/ rr/r, rx f rp, rs f sth, cth 
common/vv/v 

dimension yy(4) f f(4) f 

&xpd (imaxd, jmaxd) , zpd ( imaxd, jmaxd) ,ypd( imaxd, jmaxd) 
dimension yd (4, imaxd, jmaxd) , fd (4, jmaxd) , ue (imaxd, jmaxd) 

& , ve ( imaxd, jmaxd) , h2 ( imaxd, jmaxd) , hi ( imaxd, jmaxd) , cpd ( imaxd, jmaxd) 
dimension dy ( jmaxd) 

iordr (1) =2 
iordr (2) =2 
iptb (1) =-l 

call input 

c start calculation for streamlines 

call invdat 

if (kpoint . eq. 1 ) then 
do 41 n-1, jmax 
yd ( 1, 1, n) =x ( 1) 
yd (2 , 1, n) =y (n) 
yy (1) =x ( 1) 
yy (2) =y (n) 
yy2n=yy ( 2 ) -pio2 

c call csgeom(l, x (1) , yy2n, r, rx, rp, rxx, rxp, rpp) 

call val (x ( 1) , yy2n, r, rx, 0) 
xs=yy (1) -xosp 
rs=sqrt (xs**2+r**2) 
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cth=xs/rs 
sth=r / rs 
call fcn(yy,f) 
do 36 nc=l , 4 
fd (nc, n) =f (nc) 

36 continue 

xpd ( 1 / n) =yy ( 1 ) 
ypd(l,n)=r*cos (yy (2) -pio2) 
zpd (l,n)=r*sin(yy(2) -pio2 ) 

yy (4 ) =sqrt (xpd ( 1, n) **2+ypd (1, n) **2+zpd (l f n) **2) 
yd(4 f 1 , n ) =yy ( 4 ) 

41 continue 
go to 330 
endif 

call staglo 

c call csgeom ( 1 , xps , -pio2 , r , rxstag, rp, rxx, rxp, rpp) 

if (xps . eq. 0 ) then 
thetar=0 . 
go to 15 
endif 

call val (xps, -pio2 , r, rxstag, 1 ) 
thetar=atan (1/rxstag) 

15 write ( 6, *) ' xps= f , xps, ' zps=' , zps, ' zps (val) = f , -r, ' theta r=' , theta r 

£★**★*★★*★*★**★*★*★★*★★★★★★★★★★★★*★*★★*★****★***★★***★★★★★★*★*★★*★★*★★★* 
Q* * * * 

c** independent variable of integration is x ** 

c** v=velocity and r=cylindrical radius ** 

c** s=distance along streamline ** 

c** yy(l)=x yy(2)=phi yy(4)=s ** 

c** f (i)=d(yy (i) ) /dx, i=l,2,3,4 ** 

Q * * * * 

calp=-cos (thstag) 
salp=sin (thstag) 
sqe=sqrt ( 1 . -eor**2) 

ysml=y (1) -pio2 
do 450 n=l,jmax 
ys=y (n) -pio2 
if (ys *ysml . le . 0 ) then 
jbstar=n 
go to 460 
endif 
ysml=ys 
450 continue 
460 1=1 

c calculate properties on epsilon cone 

do 500 n=l , jmax 
sb=sin (y (n) -pio2) 
cbl=cos (y (n) -pio2) 
cth=-sqe*calp-eor*sb*salp 
th=acos (cth) 

tn=-sqe*salp+eor*sb*calp 

yy (2 ) =asin (tn/ sqrt <tn**2+ (eor*cbl ) **2 ) ) +pio2 
yy2n=yy (2 ) -pio2 
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call econ (th, xosp, yy2n, yy (1) ) 
c call csgeom( 1, yy ( 1) , yy2n, r, rx, rp, rxx, rxp, rpp) 

call val (yy (1 ) , yy2n, r , rx, 0 ) 
rs= (yy (1) -xosp) /cth 
xs=yy ( 1 ) -xosp 
cth=xs / rs 
sth=r /rs 
call fen (yy, f ) 

xpd ( 1 , n) =yy ( 1 ) 

ypd ( 1, n) =r*cos (yy (2 ) -pio2 ) 

zpd (1, n) =r*sin (yy (2 ) -pio2 ) 

yy (4) =sqrt ( (xpd(l,n) -xps) **2+ypd(l,n) **2+(zpd(l, n) -zps) **2) 

if (n . eq. jbstar ) then 
bstar=v/ yy ( 4 ) 
endif 

if (n . eq. jmax) then 
astar=v/ yy ( 4 ) 
cstar=bstar/astar 

write (6,*)' astar=' , astar , ' bstar=' , bstar , ' cstar= f , cstar 
endif 

do 51 nc=l , 4 
fd <nc, n) =f (nc) 

51 yd (nc, 1 , n) =yy (nc) 

500 continue 

c integrating forward or back to x=constant 


330 1=1 

do 550 n=l, jmax 
it=0 

do 68 nc=l, 4 
f (nc) =fd (nc, n) 

68 yy (nc) =yd (nc, 1, n) 

if(n.eq.l)go to 100 

200 it=it+l 

cost= ( (xpd2-xpd ( 1, n-1 ) ) * (xpd ( 1 , n) -xpd (1, n-1) ) 

&+ (ypd2-ypd(l, n-1) ) * (ypd(l,n) -ypd(l,n-l) ) 

&+ ( zpd2-zpd ( 1 , n-1 ) ) * (zpd(l,n) -zpd (1, n-1) ) ) 

&/ ( sqrt ( ( xpd2 -xpd ( 1 , n - 1 ) ) **2+ (ypd2-ypd ( 1 , n-1) ) **2+ (zpd2-zpd (1, n-1) ) 
& **2) *sqrt ( (xpd ( 1 , n) -xpd ( 1 , n-1) ) **2+ (ypd ( 1, n) -ypd ( 1, n-1 ) ) **2 
&+ { zpd ( 1 , n) -zpd ( 1, n-1) ) **2) ) 

c write (6,*)' n= r ,n,' it=',it,' dt= f ,dt,' cost= f , cost 

if (it . ge . 50 ) then 

write ( 6, *) ' iteration fails for n=',n 
if (kpoint .eq. 1) write (6, *) ' increase x (1) ' 
if (kpoint . eq . 0 ) write ( 6 , * ) ' increase EOR' 
stop 
endif 

err=0 .0001 
dtt=0 . 001 

if ( it . eq . 1 . and . cost . gt . err) dt=-dtt 
if (it .eq.l. and. cost .It .-err)dt=dtt 


138 


if (cost .le. err. and. cost .ge.-err)go to 400 
if (abs(dt) .lt.l.e-8)go to 400 
if (it .gt . 1 . and. costo*cost . It . 0) then 
dt=~dt / 2 . 
endif 

33 costo=cost 

45 continue 

k2=krunge (yy, f , t , dt , 4,2) 
yy2n=yy (2 ) -pio2 

c call csgeom ( 1 , yy ( 1 ) ,yy2n, r, rx, rp, rxx, rxp, rpp) 

call val (yy (1) , yy2n, r, rx, 0) 
xs=yy ( 1 ) -xosp 
rs=sqrt (xs**2+r**2) 
cth=xs/rs 
sth=r/r s 
call fcn(yy,f) 
if (k2 . eq. 1) go to 45 

xpd ( 1 , n) =yy ( 1 ) 
ypd (1, n) =r*cos (yy (2) -pio2) 
zpd (1, n) =r*sin (yy (2) -pio2) 
go to 200 

400 continue 

xpd ( 1 , n ) =yy ( 1 ) 
ypd(l, n)=r*cos(yy(2) -pio2) 
zpd(l, n) =r*sin (yy (2 ) -pio2) 
do 71 nc=l , 4 
fd (nc, n) =f (nc) 

71 yd (nc, 1, n) =yy (nc) 

if (n . eq . jmax) go to 550 

100 dt=0 .0005 

65 continue 

k2=krunge (yy, f , t , dt , 4 , 2 ) 
yy2n=yy (2 ) ~pio2 

c call csgeom (1, yy ( 1) , yy2n, r, rx, rp, rxx, rxp, rpp) 

call val (yy ( 1 ) , yy2n, r, rx, 0 ) 
xs=yy ( 1 ) -xosp 
rs=sqrt (xs**2+r**2) 
cth=xs/rs 
sth=r/rs 
call fcn(yy,f) 
if (k2 . eq . 1 ) go to 65 

xpd2=yy (1) 

ypd2=r*cos (yy (2 ) -pio2 ) 
zpd2=r*sin (yy (2 ) -pio2 ) 

550 continue 

c 

c calculates the edge conditions at i=l (at x=const) 

c 


do 600 n=l, jmax 


do 88 nc=l,4 
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f (nc) =fd {nc, n) 

88 yy (nc) =yd (nc f 1, n) 

c call csgeom(l, yy (1) ,yy2n, r, rx, rp, rxx, rxp, rpp) 

call val (yy (1) , yy2n, r, rx, 0) 
xs= yy ( 1 ) -xosp 
rs=sqrt (xs**2+r**2) 
cth=xs / rs 
sth=r/ rs 
call fen (yy, f ) 
ue ( 1, n) =v 
hi (1, n) -1 . /v 
yy2n=yy (2) -pio2 

c call csgeomd, yy (1) , yy2n, r, rx, rp f rxx, rxp, rpp) 

call val (yy ( 1 ) , yy2n, r, rx, 0 ) 
xpd ( 1 , n) =yy ( 1 ) 
ypd (1 , n) =r*cos (yy (2 ) -pio2 ) 
zpd ( 1, n) =r*sin (yy (2 ) -pio2 ) 

yy ( 4) =sqrt ( (xpd ( 1, n) -xps) **2+ypd ( 1, n) **2+ ( zpd ( 1, n) -zps ) **2 ) 
do 152 nc=l, 4 
fd (nc, n) =f (nc) 

152 yd (nc, 1 , n) =yy (nc) 
cpd ( 1, n) =cpp 
600 continue 


C 

c start integration along the streamlines 

c 

c *********** ******************** *************************************** 
do 2000 l=2,imax 

write (6, *) ' ******* 1=' , 1 , 9 ************r 
do 700 n=l, jmax 
do 58 nc=l , 4 
f (nc) =fd (nc, n) 

58 yy (nc) =yd (nc, 1-1, n) 
t=x(l-l) 
dx=x ( 1 ) -x(l-l) 

25 continue 

k2=krunge (yy, f , t r dx, 4,2) 
if (yyd) • It . 0 . ) yy (1) =1 .e-10 
yy2n=yy (2 ) -pio2 

c call csgeom ( 1 , yy ( 1 ) , yy2n, r , rx, rp, rxx, rxp, rpp) 

call val (yy (1) , yy2n, r, rx, 0) 
xs=yy ( 1 ) -xosp 
rs=sqrt (xs**2+r**2) 
cth=xs/rs 
sth=r/ rs 
call fcn(yy,f) 
if (k2 . eq. 1) go to 25 

if (abs (yy ( 1 ) ) . gt . 1 . e+10 . or . abs (yy (2 ) ) .gt . 1 . e+10 ) stop 
do 52 nc=l, 4 
fd (nc, n) =f (nc) 

52 yd (nc, 1, n) =yy (nc) 
ue (1, n) — v 
hi (1, n) -1 . /v 
xpd(l,n) =yy (1) 
ypd (1, n) =r*cos (yy (2) -pio2) 
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zpd (1, n) =r*sin (yy (2) -pio2) 
cpd (1, n) =cpp 

700 continue 
2000 continue 


c 

c calculate the metric coefficient h2 

c 

do 690 n=l , jmax-1 

dy (n) =y (n+1) -y (n) 

690 continue 

do 2100 l=l,imax 

do 2100 n-1, jmax 

dxpdy= (dy (n-1) **2*xpd (1, n+1) - (dy (n-1) **2-dy (n) **2) 

& *xpd ( I, n) -dy (n) **2*xpd(l, n-1) ) / (dy (n) *dy (n-1) * (dy(n) 
& +dy (n-1) ) ) 

dypdy= (dy (n-1) **2*ypd (1, n+1) -(dy (n-1) **2-dy(n) **2) 

& *ypd (1, n) -dy (n) **2*ypd (1, n-1) ) / (dy (n) *dy (n-1) * (dy (n) 
& +dy (n-1) ) ) 

dzpdy= (dy (n-1) **2*zpd (1, n+1 ) - (dy (n-1) **2-dy (n) **2) 

& *zpd(l,n) -dy (n) * *2* zpd (1, n-1) ) / (dy (n) *dy (n-1) 

&* (dy (n) +dy (n-1) ) ) 


if (n . eq . 1 ) then 

dxpdy= ( xpd (1,2) -xpd (1,1) ) /dy ( 1 ) 
dypdy= ( ypd (1,2) -ypd (1,1) ) / dy ( 1 ) 
dzpdy= ( zpd (1, 2 ) -zpd (1,1) ) /dy ( 1 ) 
endif 

if (n . eq . jmax) then 

dxpdy= ( xpd ( 1 , jmax) -xpd(l, jmax-1) ) /dy ( jmax-1) 
dypdy= (ypd(l, jmax) -ypd(l, jmax-1) ) /dy (jmax-1) 
dzpdy= (zpd(l, jmax) -zpd(l, jmax-1) ) / dy (jmax-1) 
endif 

h2 (1, n) =sqrt (dxpdy* *2+dypdy**2+dzpdy* *2 ) 

2100 continue 

if (kpoint . eq . 0) go to 2400 
c 

c for the sharp nose body, the velocity components 

c based on the body-oriented coordinate system are required at i 

c 

do 3100 j=2, jmax-1 
phl=atan (zpd(l, j) /ypd(l, j) ) 
xl=xpd(l, j) 
yl=ypd(l, j) 
zl=zpd (1, j) 
x2-xpd (2, j ) 
y2=ypd(2, j) 
z2=zpd (2 , j ) 
x3=xpd (2 , j ) 

c call csgeom(l, x3,phl, r3, rx, rp, rxx, rxp, rpp) 

call val (x3,phl, r3, rx, 0) 
y3=-r3* (-cos (phi) ) 
z3=r3*sin (phi ) 
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ph4=phl+0 . 01 

c call csgeomd, xpd (1, j ) , ph4, r4, rx, rp, rxx, rxp, rpp) 

call val (xpd(l, j) , ph4, r4, rx, 0) 
x4=xpd (1, j) 
y 4=-r 4 * (-cos (ph4) ) 
z4=r4*sin (ph4) 

costh= ( (y2-yl ) * (y3-yl ) +(z2-zl) * (z3-zl) + (x2-xl) * (x3-xl) ) 

/ (sqrt ( (y3-yl) **2+(z3-zl) **2 + (x3-xl) **2) 

*sqrt ( (y2-yl ) **2+(z2-zl) **2+<x2-xl) **2) ) 

costhl={ (y2-yl) * (y4-yl) + (z2-zl) * (z4-zl) + (x2-xl) * (x4-xl) ) 

/ (sqrt ( (y4-yl ) **2+(z4-zl) **2 + (x4-xl ) **2 ) 

*sqrt ( (y2-yl) **2+(z2-zl) **2+(x2-xl) **2) ) 

write ( 6 , * ) ' n=' , n, ' costh=' , costh, 9 costh 1=' , cost hi 

uesave=ue ( 1, j ) 
ue(l,j)= uesave*costh 
ve ( 1, j ) -ue save* sqrt ( 1 . -costh* *2 ) 

if (costhl.lt.O . ) ve ( 1, j ) =-uesave*sqrt (1 . -costh* *2 ) 
ve ( 1 / j ) =ue ( 1 , j ) *costhl 
ue (1, j ) =sqrt (ue (1, j) **2-ve (1, j) **2) 

3100 continue 

2400 continue 

rewind 25 

write (25 , 465) xps, zps, thetar, astar, bstar, cstar 

write (25, 463) imax, jmax 

write (25, 461) (x ( i ) , i=l , imax) 

write (25, 461) (y ( j ) , j=l , jmax) 

do 160 i=l , imax 

do 160 j=l, jmax 

write (25, 462) i, j,xpd(i, j) ,ypd(i, j) , zpd(i, j ) , yd ( 4 , i , j ) , ue { i, j ) 
&, ve (i, j) , h2 (i, j) , cpd (i, j) 

160 continue 
463 format (2il0) 

462 format (2i4, 4 ( lx, el 4 . 7) /8x, 4 (lx, el 4 . 7) ) 

461 format (5 ( lx, el3 . 6) ) 

465 f ormat ( 6el3 . 6) 

stop 
end 


& 

& 


& 

& 

c 


c 

c 
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c###################################################################### 


subroutine dudy (xl, x2, x3, yl, y2, y) 

c ###################################################################### 
a= (yl-y2 ) / (xl**2-x2**2-2 . *xl*x3+2 . *x2*x3) 
b=-2 . *a*x3 
c=yl-a*xl**2-b*xl 
y=a*x3**2+b*x3+c 
return 
end 
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c###################################################################### 


subroutine econ (th, xosp, phi, x) 

c###################################################################### 

c** 

c** routine to calculate x from theta (th) and phi on epsilon cone * 

c** using newtons method, drive tan ( th) * (x-xosp) -r to zero * 

c** r is cylindrical radius, initial guess is x=xosp+xosp*cos (th) * 
c 

common/ com2/ ir, iw 

pi=acos (-1 . ) 

tth=tan (th) 

x=xosp+xosp*cos (th) 

if (x. le . 1 . e-05) x= . 01*xosp 

it=0 

10 continue 
it=it+l 

if ( it . ge . 51 ) write (iw, 1000 ) 
if (it . ge . 51) stop 

c call csgeom ( 1, x, phi, r, rx, rp, rxx, rxp, rpp) 

call val (x, phi, r , rx, 1) 
dx= (r-tth* (x-xosp) ) / (tth-rx) 
x=x+dx 

if (x . le . 0) x=l . Oe-5 
if (abs (dx) . It . 1 . Oe-6) go to 20 
go to 10 
20 return 

1000 format (////5x, 45h***** iteration fail in econ - stop *****/) 
end 
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c###################################################################### 


subroutine fcn(yy,f) 

parameter (im=16, jm=38) 

common/ cpcom/cpp 

common /coml /pi, pio2, dtr, rtd 

common/ com3/iordr (2) , iptb (2) , ider 

common/ invtab/phit ( jm) , rt (im, jm) , urt (im, jm) 

1, upt (im, jm) , u3t (im, jm) , cavt (im, jm) , pcoef (im, jm) 

2 , x3tp ( im) , xin { im) 
common/ invcon/ npi, nti, xosp 
common/stgpt /thstag, xps, zps 
common/nn/n 

common/ rr/ r, rx, rp, rs, sth, cth 

common/vv/v 

dimension yy(4),f(4) 

integer iendsw ( 8 ) , ierr, iopt ( 3) , iwi, iwl, iw2, iw3, iw4, mx, my, mz 

real endyl (im) , endyn (im) , sigma 

real wk(5*im*jm) 

real wkl(5*im*jm) 

real wk2(5*im*jm) 

real wk3(5*im*jm) 

real wk4(5*im*jm) 

c biviarate spline under tension 

iendsw ( 1) =2 
iendsw (2 ) =2 
iendsw (3) =0 
iendsw (4 ) =0 
iopt ( 1) =3 
iopt (2) -3 

do 50 ii=l,nti 
endyl ( ii ) =0 . 

50 endyn (ii)=0. 
sigma =2 . 0 

if ( iwi . eq . 1 ) go to 22 
iwi=0 

22 continue 
mx=l 
my=l 
mz=l 

call stibi (iopt , nti, npi, xin, phit , nti, pcoef , iendsw, endxl 
& , endxn, endyl , endyn, endxy, sigma, mx, my, yy { 1) , yy (2 ) , iwi, mz, cpp, 
&linout , wk, ierr) 

if (ierr . gt . 0) write ( 6, *) ' ***** ierr is gt . 0 (stibi cp) ierr=' , ierr 

if ( iwl . eq . 1 ) go to 33 

iwl=0 

33 continue 

call stibi (iopt, nti, npi, xin, phit , nti, cavt, iendsw, endxl 
& , endxn, endyl , endyn, endxy, sigma, mx, my, yy ( 1 ) , yy (2 ) , iwl , mz, v, 

Slinout, wkl, ierr) 

if (ierr . gt . 0 ) write ( 6, *) ' ***** ierr is gt . 0 (stibi v) ierr-' , ierr 

if (iw2 .eq. 1) go to 44 


145 


iw2=0 

44 continue 

call st ibi (iopt , nti, npi, xin, phit , nti, u3t , iendsw, endxl 
& , endxn f endyl, endyn, endxy, sigma, mx, my, yy ( 1) , yy (2) , iw2, mz, vt , 

&linout , wk2 , ierr) 

if (ierr . gt . 0) write (6, *) ' ***** ierr is gt . 0 (stibi vt) ierr=' , ierr 

if ( iw3 .eq . 1) go to 55 
iw3=0 

55 continue 

call stibi (iopt, nti, npi, xin, phit , nti, urt, iendsw, endxl 
& , endxn, endyl, endyn, endxy, sigma, mx, my, yy (1) , yy (2) , iw3, mz, vr, 

&linout , wk3, ierr) 

if (ierr . gt . 0) write ( 6, *) ' ***** ierr is gt . 0 (stibi vr) ierr=' , ierr 

iendsw (3) =2 
iendsw ( 4 ) -2 

if (iw4 . eq. 1) go to 66 
iw4 = 0 

66 continue 

call stibi (iopt, nti, npi, xin, phit , nti, upt, iendsw, endxl 
&, endxn, endyl, endyn, endxy, sigma, mx, my, yy (1) , yy (2) , iw4,mz, vp, 
filinout , wk4 , ierr ) 

if (ierr .gt . 0) write ( 6, *) ' ***** ierr is gt . 0 (stibi vp) ierr=' , ierr 

iwi=l 

iwl = l 

iw2=l 

iw3=l 

iw4=l 

f ( 1 ) - (cth*vr-sth*vt ) / v* *2 

f (2) =vp/ ( r*v**2 ) 

f (4)=l./v 

return 

end 
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c###################################################################### 


subroutine input 

c###################################################################### 
c ** ** 

c** subroutine to read input data ** 

£ * * * * 

parameter ( im= 1 6 , jm=38, imaxd=100, jmaxd=51) 

common /coml /pi , pio2, dtr, rtd 

common/ com2/ ir, iw 

common /point/kpoint 

common/com5/ imax, jmax 

common /com6/eor 

common/sll/x (imaxd) , y(jmaxd) 

ir-10 

iw=6 

c 

c description of inputs 

c imax= no. of steps in the streamline direction 

c jmax=number of streamlines to be computed 

c eor=ratio of epsilon to r on starting circle 

c (approx . value= . 01, but, if the inviscid solution near the 

c stagnation point is not accurate, this value should be 

c increased up to 0.05) 

c 

imax=2 0 
j max-3 1 

kpoint=0 
eor=0 . 05 

c 

c x-distribut ion is given 

c 

x (1) =0 . 001 

do 250 i=2,imax 

i f ( i . le . 5 ) dx= 0.0005 

if (i . gt . 5 . and . 1 . le . 20 ) dx=0 .002 

if ( i . gt . 2 0 . and . 1 . le . 8 0 ) dx-0 . 0 1 

if (i . gt . 80 ) dx=0 . 04 

x ( i) =x (i-1 ) +dx 

write ( 6, *) ' i=' , i, ' x=' , x (i) 

250 continue 

c 

c y-distribution is given 

c 


pi=acos (“1 . ) 
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do 270 i=l , jmax 

y (i) =pi* (1 ( jmax-i) / ( jmax-1 . ) ) 

270 continue 

if (imax . gt . imaxd) write ( 6, * ) ' change imaxd to' , imax 
if ( jmax . gt . jmaxd) write { 6, *) ' change jmaxd to' , jmax 

pio2=pi/2 . 
dtr=pi/180 . 
rtd=180/pi 

return 

end 
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c ###################################################################### 


subroutine invdat 

c ###################################################################### 

q * * ★ ★ 

c** read inviscid data 

0 * * * * 

parameter ( im= 1 6 , jm=3 8 ) 

common /he ss/xo ( im, jm) , yo ( im, jm) , zo ( im, jm) 

& , vx ( im, jm) , vy ( im, jm) , vz ( im, jm) 
common/ coml/pi, pio2, dtr, rtd 

common/ in vtab/ phit ( jm) , rt ( im, jm) , urt (im, jm) 

1, upt (im, jm) , u3t (im, jm) , cavt (im, jm) , pcoef (im, jm) 

2 , x3tp ( im) , xin ( im) 
common/ invcon/npi, nti, xosp 
common /point /kpoint 

common/ com3/iordr (2) , iptb (2 ) , ider 

common/ wind/ u3tw ( im) , urtw ( im) , rtw ( im) , cavw ( im) , cpw ( im) 
common/ lee/ u3tl (im) , urtl (im) , rtl (im) , cavl (im) , cpl (im) 
dimension cavnd ( jm) , cpnd ( jm) , urnd ( jm) , u3tn ( jm) , upnd ( jm) 

c 

c x3t=theta 

c u3t=table of (u) theta 

c 

c read inviscid data 

c 

xosp=l . 
rewind 2 

100 read (2 , 410, end=1000 ) is , lk, ksorce 
do 800 k=l, ksorce 

read (2, 411)xo(lk,k) ,yo(lk,k) , zo(lk,k) ,vx(lk,k) , 

&vy (lk, k) , vz (lk,k) , pcoef (lk, k) 
if (yo ( lk, k) . lt.0) yo (lk,k)=l.e-7 
sr= (yo (lk,k) **2+zo ( lk, k) * *2 ) * * 0 . 5 
rt (lk, k) = ( sr * *2+ (xo (lk, k) -xosp) **2) **0 . 5 
cavt (lk, k) -sqrt (vx (lk, k) **2+vy (lk, k) **2+vz (lk, k) **2) 
urt (lk,k) = (yo(lk,k) *vy (lk, k) +zo (lk, k) *vz (lk,k) 

&+ (xo (lk, k) -xosp) *vx (lk, k) ) /rt (lk, k) 
u3t (lk, k) = (yo (lk,k) * (xo(lk,k) -xosp) *vy(lk,k)+zo(lk,k) * (xo (lk, k) 
&-xosp) *vz (lk, k) -sr**2*vx (lk, k) ) / (sr*rt (lk,k) ) 
upt (lk, k) =- (zo (lk, k) *vy (lk, k) -yo (lk, k) *vz (lk,k) ) /sr 
if (lk . eq. 3 ) phit (k) =atan (zo (lk,k) /yo (lk,k) ) +pio2 
800 continue 

x3t=asin ( (yo (lk, 1) **2+zo (lk, 1) **2 ) **0 . 5/rt (lk, 1) ) 
if ( (xo ( lk, 1 ) -xosp) . It . 0 ) x3t=pi-x3t 
x3tp (lk) =pi-x3t 
xin ( lk) -xo (lk, 1) 

c write(6,*)' lk= f , lk, ' xin (lk) =' , xin (lk) , ' x3tp ( lk) =' , x3tp ( lk) 

410 format (3i5) 

411 format (7el2 . 6) 
go to 100 

c 

c to give values on the lines of symmetry and the nose 

c 

1000 nt-lk 
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np=ksorce 

if (im. It . nt + 1) then 

write (6,*)' change parameter im to ' , nt+1 

write (6,*)' parameter im are given in subroutines fen, input, 
&invdat, staglo, and main program semain.' 
stop 
endif 

if ( jm . ne . np+2 ) then 

write (6,*)' change parameter jm to np+2 

write(6,*)' parameter jm are given in subroutines fen, input, 
&invdat, staglo, and main program semain. ' 
stop 
endif 

iptb (1) =-l 
do 2000 lk=l,nt 
xins=xin ( lk) 

call dudy (phit (np-1) ,phit (np) ,pi, cavt (lk, np-1) 

& , cavt (lk, np) , cavl (lk) ) 

call dudy (phit (2) , phit (1) , 0 . , cavt (lk, 2) , cavt (lk, 1) , cavw (lk) ) 
call dudy (phit (np-1) , phit (np) ,pi,pcoef (lk,np-l) 

&, pcoef (lk,np) , cpl (lk) ) 

call dudy (phit (2) , phit (1 ) , 0 . , pcoef (lk, 2) ,pcoef (lk, 1) , cpw (lk) ) 
call dudy (phit (np-1) , phit (np) ,pi,urt (lk,np-l) 

& , urt ( lk, np) , urtl ( lk) ) 

call dudy (phit (2 ) , phit ( 1 ) , 0 . , urt (lk, 2) , urt (lk, 1) , urtw ( lk) ) 
call dudy (phit (np-1 ) , phit (np) , pi, rt ( lk, np-1) 

& , rt (lk, np) , rtl ( lk) ) 

call dudy (phit (2) , phit ( 1 ) , 0 . , rt ( lk, 2 ) , rt (lk, 1) , rtw ( lk) ) 
call dudy (phit (np-1 ) , phit (np) , pi , u3t ( lk, np-1 ) 

& , u3t (lk, np) , u3tl (lk) ) 

call dudy (phit (2) , phit (1) ,0 . , u3t (lk,2) ,u3t (lk, 1) , u3tw (lk) ) 
2000 continue 

do 2100 lk=l,nt 
do 2200 k=ksorce, 1 , -1 
cavt (lk, k+1) =cavt (lk, k) 
pcoef (lk, k+1) =pcoef (lk, k) 
urt ( lk , k+1 ) —urt ( lk, k) 
rt (lk, k+1) =rt (lk, k) 
u3t <lk,k+l) «u3t ( lk, k) 
upt ( lk, k+1 ) =upt ( lk, k) 

2200 continue 

cavt ( lk, 1) =cavw ( lk) 
cavt ( lk, np+2 ) =cavl ( lk) 
pcoef (lk, 1) =cpw (lk) 
pcoef (lk, np+2 ) =cpl ( lk) 
urt ( lk, 1 ) =urtw ( lk) 
urt ( lk, np+2 ) =urtl (lk) 
rt (lk, 1) =rtw (lk) 
rt (lk, np+2) -rtl (lk) 
u3t (lk, 1 ) =u3tw (lk) 
u3t (lk, np+2 ) =u3tl (lk) 
upt (lk, 1 ) =0 
upt (lk,np+2)=0 
2100 continue 

do 2300 k=ksorce, 1 , -1 
phit (k+1 ) =phit (k) 

2300 continue 
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phit (l).-O . 
phit (np+2 ) =pi 

if (kpoint .eq. 1) go to 3000 
c 

c calculate the velocity at the nose point for the blunted nose body 

c 

call lagext (xin ( 1) , xin (2 ) , xin ( 3) , cavt ( 1 , np+2) , cavt (2, np+2 ) 

& , cavt (3, np+2 ) , cavn) 

call lagext {xin (1) , xin (2) , xin (3) , pcoef (1, np+2) , pcoef {2, np+2) 

Sc, pcoef (3, np+2) , cpn) 

do 2401 k=l , ksorce+2 
u3tn (k) =cavn 

if (phit (k) .gt . 0) u3tn (k) =-abs (cavn) 

2401 continue 

do 2500 k=l, ksorce+2 
do 2600 lk=nt,l,-l 
rt (lk+1, k) =rt (lk, k) 
cavt (lk+1, k) =cavt (lk, k) 
pcoef (lk+1, k) =pcoef (lk, k) 
urt (lk+1, k) =urt ( lk, k) 
u3t (lk+1, k) =u3t (lk, k) 
upt (lk+1, k) =upt (lk, k) 

2600 continue 

rt (1, k) —xosp 
cavt (1 , k) =cavn 
pcoef ( 1, k) =cpn 
urt (1, k) =0 
u3t ( 1 , k) =u3tn (k) 
upt ( 1, k) =0 
2500 continue 

go to 3100 

c 

c calculate the velocity at the nose point for the sharp nose body 

c 

3000 xl=xin(l) 
x2=xin (2 ) 
x3=xin ( 3 ) 

do 2440 k=l, ksorce+2 

call lagext (xin (1) , xin (2) , xin (3) , cavt (1, k) , cavt (2, k) 

St, cavt (3, k) , cavnd (k) ) 

call lagext (xin (1) , xin (2) , xin (3) , pcoef (1, k) , pcoef (2, k) 

Sc, pcoef (3, k) , cpnd (k) ) 

call lagext (xin ( 1 ) , xin (2 ) , xin (3) , urt ( 1 , k) , urt (2, k) 

& , urt (3, k) , urnd (k) ) 

call lagext (xin (1) , xin (2) , xin (3) , u3t (1, k) , u3t (2, k) 

Sc, u3t (3, k) , u3tn (k) ) 

call lagext (xin ( 1) , xin (2) , xin (3) , upt ( 1, k) , upt (2 , k) 

& , upt ( 3 , k ) , upnd ( k ) ) 

2440 continue 
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do 2510 k=l,ksorce+2 
do 2610 lk=nt,l,-l 
rt (lk+1 , k) =rt {lk, k) 
cavt (lk+1, k) =cavt (lk, k) 
pcoef (lk+1, k) =pcoef (lk, k) 
urt (lk+1, k) =urt (lk, k) 
u3t (lk+1, k) =u3t ( lk, k) 
upt ( lk+1 , k) =upt (lk, k) 

2610 continue 

rt ( 1 , k) =xosp 
cavt ( 1 , k) — cavnd (k) 
pcoef (1, k) =cpnd (k) 
urt ( 1, k) =urnd(k) 
u3t ( 1, k) =u3tn (k) 
upt ( 1, k) =upnd (k) 

2510 continue 

3100 continue 

do 2700 lk=nt , 1,-1 
xin ( lk+1 ) =xin ( lk) 
x3tp (lk+1) ~x3tp (lk) 
rtw ( lk+1 ) =rtw ( lk) 
u3tw(lk+l) =u3tw ( lk) 
urtw { lk+1 ) =urtw ( lk) 

2700 continue 
xin ( 1 ) =0 
x3tp ( 1 ) =0 
rtw ( 1 ) =xosp 
u3tw (1) =cavn 
urtw (1) =0 . 

npi=np+2 
nt i=nt+l 
return 
end 
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c#################################################################### 
function krunge (y, f , x, h, n, mr ) 

c#################################################################### 
dimension phi { 6) , savey (6) , yl ( 6) , y2 ( 6) , ykp ( 6) , f kp (6),y(n),f(n) 
data m, loop, reb/0 , 0, 5 . e-4/ 
m=m+l 

go to (5, 45, 65, 85) , m 
5 if ( loop . gt . 0 ) go to 25 

if (mr . eq. 1) go to 205 
xo=x 

do 15 j=l,n 
ykp ( j ) =y ( j ) 

15 fkp(j)=f ( j) 

25 do 35 j=l,n 

savey (j) =y ( j) 
phi < j ) — f ( j ) 

35 y ( j ) =savey ( j ) +0 . 5*h*f ( j ) 
x=x+0 . 5 *h 
krunge=l 
return 

45 do 55 j=l,n 

phi ( j) =phi ( j) +2 . 0*f ( j) 

55 y { j ) =savey { j ) +0 . 5*h*f ( j ) 
krunge=l 
return 

65 do 75 j=l,n 

phi ( j ) =phi ( j) +2 . 0*f ( j) 

75 y ( j ) =savey ( j) +h*f ( j) 
x=x+0 . 5 *h 
krunge=l 
return 

85 do 95 j=l,n 

95 y ( j ) =savey { j ) + (phi ( j ) +f ( j ) ) *h/ 6 . 0 

if (mr . eq . 1 ) go to 165 

if (mr . eq. 2) then 
krunge-0 
loop=0 
m=0 

return 

endif 

if (loop-1) 105, 125, 145 
105 do 115 j=l, n 

y2 ( j ) =y ( j ) 
f ( j)=fkp(j) 

115 y(j)=ykp(j) 

x=xo 
h=h/2 . 
m=l 
loop-1 
go to 25 

125 do 135 j=l , n 

135 yl ( j ) =y ( j ) 

xh=x 
loop=2 
m=0 

krunge=l 
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return 

145 if (mr . eq. 3) go to 165 
151 do 155 j=l,n 

if (abs (y { j ) ) . It . 1 .d-5) go to 155 
er= (y ( j) -y2 ( j) ) /y ( j) 
if (abs (er) -reb) 155, 155, 175 
155 continue 
165 h=4.*h 

if (mr .eq.3) go to 170 
mr=0 

170 loop=0 

krunge=0 

m=0 

return 

175 do 185 j~l,n 
y ( j ) =ykp ( j ) 
f ( j)-fkp< j) 

185 y2 ( j ) =yl < j ) 
x=xo 
h=h/2 . 
loop=l 
m=l 

krunge=l 
go to 25 
195 krunge=2 
m=0 
loop=0 
return 

205 do 215 j-l,n 

y ( j ) =ykp ( j ) 

215 f(j)=fkp(j) 
x=xo 
h-h/2 . 
go to 25 
end 
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c##################################################################### 


subroutine lagext (xl, x2, x3, yl, y2, y3, cl) 

c###################################### ############################### 

al= ( (yl-y2) * (xl-x3) - (yl-y3) * (xl-x2) ) 

&/ ( (xl * *2-x2 * *2 ) * <xl-x3) - (xl * *2-x3 * *2 ) * (xl-x2) ) 
bl- {yl-y2-al * (xl* *2-x2**2 ) ) / (xl-x2) 
cl=yl-al*xl* *2-bl*xl 
return 
end 


155 



c###################################################################### 


subroutine staglo 

c###################################################################### 
c** subroutine to locate stagnation point from inviscid velocity ** 
c** components ** 

Q * * * * 

parameter (im=16, jm=38) 

common /invtab/phit ( jm) , rt ( im, jm) , urt (im, jm) 

1, upt (im, jm) , u3t (im, jm) , cavt (im, jm) ,pcoef (im, jm) 

2 , x3tp ( im) , xin ( im) 
common/ invcon/npi, nt i, xosp 
common/ stgpt /thstag, xps , zps 
common /coml /pi, pio2 , dt r , rtd 
common /com2 /ir, iw 

common /com3/ iordr (2 ) , iptb (2 ) , ider 

common/ wind/ u3tw ( im) , urtw ( im) , rtw ( im) , cavw ( im) , cpw ( im) 
c 

iorder=2 
ipt=- 1 

call iuni (nti,nti,x3tp, l,u3tw, iorder, 0 , vt , ipt, ierr) 
test l=vt 
epsi=0 .000001 
the=0 . 

if (abs (testl) . It .epsi) go to 200 
if (testl . It . 0 .) write (iw, 1000) 

1000 format (////5x, 63h***** inconsistent velocities in stagnation regio 
In - stop *****) 
if ( test 1 . It . 0 . ) stop 
dthe=pi/ 10 . 
n=0 

100 continue 
n=n+l 

if (n . gt . 100) write ( iw, 1020) n 

1020 format { ////5x, 50h***** too many iterations - stop 1 in staglo **** 
1*, 2hn=, i4 ) 

call iuni (nti, nti, x3tp, 1, u3tw, iorder, the, u the, ipt, ierr) 
if (ierr . ne .0) write (iw, 1030) n, etaw, the, uthe, ierr 
1030 f ormat ( /5x, i3 , 3el 4 . 5 , i3 ) 

if (abs (uthe) . It . epsi) go to 140 
if (uthe . It . 0 . ) go to 120 
the=the+dthe 
go to 100 
120 continue 

the=the-dthe 
dthe=dthe/10 . 
go to 100 
140 continue 

thstag=pi-the 
go to 250 
200 continue 
thstag=pi 

250 continue > 

call iuni (nti, nti, x3tp, 1, rtw, iorder, the, rstag, ipt, ierr) 

call iuni (nti, nti, x3tp, 1, urtw, iorder, the, ur stag, ipt, ierr) 

xps=-rstag*cos (the) +xosp 

zps=-rstag*sin (the) 

return 

end 
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